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MECC TRAINING MATERIALS FOR THE APPLE IT™ micROCOMPUTER 


Preface 


This booklet is one of a series providing training materials on various aspects of using 
the APPLE II microcomputer in education. This material is designed primarily for use 
in the "teaching of teachers". It would most naturally be used in workshop or class 
sessions for educators desiring to gain expertise on the APPLE II so they could in turn 
use this microcomputer in their elementary, secondary, or college classes. However, 
the multi-purpose design of these materials also makes them appropriate for self- 
instructional use. 


The assumption is made that the trainer using these materials already has an adequate 
knowledge of the subject and does not have to rely on the materials themselves to 
learn about the APPLE Il. Rather, the materials save the trainer the time needed to 
organize a workshop or course and to create handouts and exercises for the participants. 


Each booklet was prepared by someone who used the materials in teaching a course 
and thus it will reflect that person's own philosophy on how topics should be organized 
and presented. Trainers will have individual styles and may want to alter the materials 
to some degree to fit their own preferences in teaching. 


While these booklets are published by the Minnesota Educational Computing Consortium 
(MECC), they are the result of a joint effort contributed to by various participants in 
the Consortium, including MECC staff, the TIES organization, and the University of 
Minnesota Computer Center. For more information on all MECC support activities, 
including those for the APPLE II microcomputer, see the Appendix on MECC Instructional 
Services. 


TMappLe I and Applesoft as used in this booklet are trademarks of Apple Computer, Inc. 
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MECC TRAINING MATERIALS FOR THE APPLE I MICROCOMPUTER 


Intermediate Applesoft BASIC 


Introduction 


These materials are intended to be a continuation of MECC Training Materials for 
Beginning Applesoft BASIC. Beginning topics are reviewed and extended. New topics, 
prerequisite to an advanced BASIC course, are introduced. The materials were designed 
to be self-instructional materials as well as a guide for teacher workshops or student 
classes. 


The package includes four instructional units and teacher notes. 


Each unit contains sample programs to serve as introductory material. Each unit also 
contains an activity section to reinforce and extend topics introduced. It is assumed 
that at least one Apple II microcomputer will be available to demonstrate sample 
programs. 


The TEACHER NOTES section contains comments and Possible solutions to sample 
Programs and listings and sample runs of suggested solutions to the activities. 


The trainer may wish to prepare a demonstration diskette for use with these materials. 
Directions are given on Page T-1 of the Teacher Notes section. 


Before using these materials the participant should: 


1. Complete the Beginning Applesoft BASIC Training Materials or a similar 
beginning BASIC course. 

2. Gain background experience with the Apple microcomputer by using programs 
on disk. 


After completing these materials the participant should be able to: 
1. Use a flow chart to aid in the development process. 
2. Use Applesoft system commands to manipulate and modify programs saved 
on disk. 


3. Design programs that are easy to read, understand, modify and run. 
4. Format output to the screen in a readable and user-controlled manner. 


Equipment 
It is generally assumed in the use of these materials that the participants are using 


the Apple II with Autostart, Applesoft in ROM and a disk drive. Each participant 
should have a blank diskette and access to a DOS 3.3 System Master Diskette. 


Acknowledgements 
These materials were developed by Marcia Horn and the TIES Instructional Staff. 
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UNIT I I-l 
Operating the Apple 


If you are not familiar with the Apple (or you feel you need to be reacquainted), perform the 
following procedures before continuing with this packet. 


TURNING ON THE APPLE - "Booting the System" 


Step |: Turn on the monitor or T.V. (UHF Channel 33). rnin 
Step 2: Put a disk in the disk drive (label side up and ey 
toward you) and close the drive door. wx 


Step 3: Ground yourself by touching the metal on the 
back of the Apple. 


Step 4: Turn on the Apple (switch is on the back, to the left of the power cord). 


USING PROGRAMS FROM A DISK 


WITHOUT A MENUS” [OR] ...FROM A DISK WITH A MENU 
Step |: Boot the system (see steps |- 
4 above). Step |: Boot the system (steps 1-4 above). 
Step 2: If a list of program names is Step 2: If a list of program names and the 
not on_the screen and you message, "TYPE THE NUMBER OF 
have a] prompt, type: THE PROGRAM YOU WANT", is 
CATALOG on the screen then you have a disk 
and press RETURN key. with a menu. 
Step 3: Type: LOAD program name Step 3: Type the number of the program 
(ex. LOAD OREGON) and press RETURN. 
Type: RUN 


Type: RUN program name 
(ex. RUN OREGON). 
CHANGING TO ANOTHER PROGRAM ON THE SAME DISK 


Step 1: If you have the J prompt or the disk menu follow steps 2 and 3 for using programs 
from a disk. 


Step 2: If you are in the middle of a program and wish to change to another program, 
press RESET, type PR#6 and press RETURN. Follow steps 2 and 3 for using 
programs from a disk. 

USING PROGRAMS ON A DIFFERENT DISK 

Step |: Make sure the disk drive "in use" light is off. 

Step 2: Put in the desired disk, returning the other disk to its paper envelope. 

Step 3: Follow steps | and 2 for changing to another program on the same disk. 

TURNING OFF THE APPLE 

Step |: Make sure the disk drive light is off. 

Step 2: Remove the disk, put it in its paper enviope and store it vertically. 


Stan 2. Turn aff the TV_ and the Annie 


1-2 


To prepare a new disk for storing programs, you must first initialize the disk. The 
initializing process writes DOS (Disk Operating System) onto the disk, sets up the catalog 
area and marks the 56f sectors where programs and files will be stored. Initializing a disk 
containing programs will "wipe it clean" of all old programs. 
Step |: With the Apple power turned off, place the DOS 3.3 System Master in the 
disk drive. 


Step 2: Turn on the Apple and wait for the following to appear on the screen. 


DOS VERSION 3.3 08/25/80 


APPLE II FLUS OR ROMCARD SYSTEM MASTER 


Step 3: Take out the System Master and put in the disk to be initialized. 


Step 4: Type the following, pressing RETURN after each line: 


NEW 
10 HOME 
120 PRINT"THIS DISK BELONGS To _(your name)" 
130 END 


JINIT HELLO 


Wait about 30 seconds until the disk drive light goes off. 


Step 5: Check your disk by turning off the Apple, placing your new disk in the drive 
and then turning on the Apple. The screen should clear and the following 
should appear: 


THIS DISK BELONGS TO (your name) 


me 


Step 6: Remove the disk, put it in its paper envelope and write your name on the 
label using a felt tip pen. 


*** NOTE: A disk initialized on a 32K Apple will work on either a 32K or 48K system. A 
disk initialized on a 48K system will only work on a 48K system. Use the 
program MASTER CREATE on the System Master disk to convert the disk into 
a disk that will work on a 32K Apple. (MASTER CREATE does not alter any 
files that may be saved on the disk. It just changes DOS.) 


1-3 
Disk Format 


The initializing process writes DOS (Disk Operating System) onto the disk. DOS contains the 
information needed by the Apple to operate a disk drive. 


The directory or catalog of the disk contents is also placed on the disk during the 
initialization. The directory contains information concerning the names and locations of 
files on the disk. 


In addition, the initializing process divides the disk into tracks and sectors where files will 
be stored by the user. READ/WRITE 
q WINDOW 


Tracks 


An initialized disk has 35 
concentric tracks. The 
tracks are numbered f) to 34, 
beginning with the outermost 
track. DIRECTORY 


TRACK 17 
DOS is stored on tracks 9, 1 


and 2. 


The directory is stored on 
track 17. 


Of the 35 tracks, 31 tracks 
remain for the user to store 
files. The user tracks are 3- 
46 and 18-34, 


USER STORAGE 
TRACKS 3-16 
18-34 


Sectors 


Each track is further divided 
into 16 sectors. The phrase 
"16 sector disk" mneans each 
track has 16 sectors. 


DIRECTORY 
TRACK 17 


There are 56) sectors on a 
disk. DOS and the directory 
take up 64 sectors, leaving 
496 sectors for user storage. 


Each sector can store up to 
256 bytes or characters of 
information. The 56 sectors 
have the capacity of storing 
143K or 143,369 bytes of 
information. 


USER STORAGE 
TRACKS 3-16 
18-34 


System Commands 


System commands are direct instructions to the computer. They are used to manipulate 
programs for utility purposes. System commands execute immediately and are generally not 
used with line numbers as parts of programs. 


CATALOG ICATALOG 
Put the DOS 3.3 System Master in DISK VOLUME 254 
the disk drive. Turn on the Apple. 
When you have the prompt type: y 006 HELLO 
CATALOG %I 018 ANIMALS 

xT 003 APPLE PROMS 
The Apple will display a catalog KT 006 AFFLESOFT 
listing of programs stored on the XI 024 APFILEVISION 


disk. x BIORHYTHM 
) BOOTIS 

BRIAN’S THEME 
CHAIN 
COLOR DEMO 
COLOR DEMOSOFT 
COFY 
COFY.OBJO 
COFYA 
EXEC DEMO 
FID 
FPRASIC 
INTBASIC 


LITTLE BRICK OUT 
MAKE TEXT 

MASTER CREATE 
MUFFIN 

FHONE LIST 


Press any key (except RESET) to 
send up the rest of the catalog. 


4 
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INSTRUCTIONS 


tETRIEVE 


The Applesoft prompt "J" lets you 
know that all of the catalog has 
appeared. 


* A 9@9 COLOR DEMOSOFT 


"*"" indicates the "A" indicates the "999" indicates "COLOR 

file is locked. file type is Apple- the program occupies DEMOSOFT" 
soft. Others are: 9 sectors on the disk. is the program 
"I" . Integer The total numberof name. 
"B" = Binary sectors available for 


"T" _ Text user storage if 496. 


System Commands 1-5 


Booting the System 


Two ways of "booting the system" or "booting DOS" (Disk Operating System) are: 


1. Turn the Apple off. Put in a disk. Turn the Apple on. 
Be Press RESET. Put ina disk. Type PR#6. Press RETURN. 


When the system is booted, the Apple is first "taught" how to operate with a disk drive (DOS 
is loaded into the computer's memory). After DOS is loaded, the Apple automatically runs 
the een typed in when the disk was initialized (the program named HELLO on your 
disk). 


Put your disk in the disk drive and type PR#6. Press RETURN. 
Type the following: CATALOG 
Answer these questions: 


s+ Is the HELLO program locked? 


+» _ How many sectors does the HELLO program occupy? 


+ How many sectors are remaining for storing other programs and files on your 
disk? 


+ What type of file is the HELLO program? 


$$ 
Type the following. Press RETURN Record what happens below. 
after each line. 


Typing NEW clears any previously used program from the Apple's memory. After the system 
is booted, the HELLO program is in the Apple's memory. Loading and running another 
Program stores that program in the Apple's memory. Always type NEW before typing in a 
new program or you'll end up with two programs mixed together. 


Saving Programs on Disk 


Type the following: 
NEW 


19 HOME 

20 PRINT "2+ 8 =" 
30 PRINT 2+8 

49 END 


HOME 


LIST 


RUN 


SAVE PROGRAM EXAMPLE 


CATALOG 


1-6 
System Commands 


This is what happens: 


The Apple's memory is cleared. 


One line of this program is placed into 
memory each time RETURN is pressed. 
The screen is cleared. 


The program in memory is listed on the 
screen. 


The program in memory is executed. 


The program in memory is saved on the disk by 
the name following the word SAVE. 


PROGRAM EXAMPLE is now on the disk cata- 
log. 


The name given to a program when saving it on disk must begin with a letter and can be up 


to 30 characters long. 


Commas and semicolons cannot be used in a program name. 
Control characters should not be used in a program name. 


Type the following: 


LIST The program in memory is listed on the 
screen. 


--———__—___—qeqe 


ee 


This is what happens: 


Memory is cleared. 


Nothing is listed since memory was 
cleared when NEW was typed. 


just 


System Commands 1-7: 
Renaming and Altering Programs Saved on Disk 


(UNDERLINED words are the system commands.) 


. Type the following: 


LOAD PROGRAM EXAMPLE 


This is what happens: 


The Apple loads a copy of the program, 
PROGRAM EXAMPLE, from the disk into 
the Apple's memory. 


RUN The Apple executes the program in 


memory. 


RUN PROGRAM EXAMPLE The Apple loads a copy of PROGRAM 


EXAMPLE from the disk and executes it. 


The Apple changes the program's name on 
the disk catalog from PROGRAM 
EXAMPLE to EXAMPLE. 


RENAME PROGRAM EXAMPLE, EXAMPLE 
CATALOG 


You may wish to alter the version of the program that you saved on disk. As you work on 
long programs or as you find bugs in programs, lines on programs already saved on disk may 
need to be altered. The following example illustrates the process. 


Type the following: This is what happens: 


A copy of the program EXAMPLE is loaded 
into memory and then listed on the screen. 


LOAD EXAMPLE 
LIST 


40 PRINT "TYPE A NUMBER" These lines are put into memory with 
5f INPUT A EXAMPLE program, 

69 PRINT "TYPE ANOTHER" 
70 INPUT B 

8) PRINT "THE SUM IS "A+B 
99 END 


——  SSSSSSSSSSSSSSSSHSSS 


RUN The program is executed. Type numbers 
when asked to do so. 


SAVE EXAMPLE The current program in memory replaces 
the old version of EXAMPLE on the disk. 


LIST The entire program in memory is listed. 


System Commands 


Locking, Unlocking and Deleting Programs 


This is what happens: 


Type the following: 


An asterisk (*) will appear to the left of the 
program name. 


LOCK EXAMPLE 
CATALOG 


The Apple "beeps" and prints FILE LOCKED. 
The Apple will attempt to delete the program 
EXAMPLE from the disk, but will find out that 
it is locked. EXAMPLE is not deleted. 


DELETE EXAMPLE 


NEW The Apple "beeps" and prints FILE LOCKED. 


1) HOME The Apple will attempt to replace the old 
20 PRINT "APPLES ARE GREAT! " program EXAMPLE with this new version but 
30 END will find out that it is locked. EXAMPLE is 


SAVE EXAMPLE not replaced. 


The new program is saved by the name 


GREAT. 


SAVE GREAT 
CATALOG 


Locking a program is a way to protect the program from being accidentally deleted or lost 
when saving another program by the same name. 


When you initialized your disk on page I-2, the program created and used in the initialization 
Process was named HELLO (see Step 4: INIT HELLO). When the system is booted with your 
disk, the Apple will look for a program with the name HELLO. 

It is a good idea to lock the program used to initialize a disk. 


Type: LOCK HELLO 
Type: CATALOG 


You should see an asterisk to the left of HELLO. 


Type the following: This is what happens: 


The asterisk (*) disappears. 


UNLOCK EXAMPLE 
CATALOG 


The program EXAMPLE is deleted from the 
disk. 


DELETE EXAMPLE 
CATALOG 


Locking is not permanent. A file needs to be unlocked before changes may be made in the 


Line 49 sets the video mode so that 
all PRINT statements that follow 


1-9 
INVERSE, FLASH, NORMAL and SPEED 


INVERSE, FLASH and NORMAL 


The INVERSE or FLASH command may be used to draw attention to directions, provide 
reinforcement or give warnings during the run of a program. 


INVERSE causes all printing that follows to be output to the screen as black characters ona 
white background. 


FLASH causes all printing that follows to be output to the screen alternating from white 
characters on black to black characters on white. 


NORMAL sets the screen output back to the usual white characters on a black background. 
A NORMAL statement should follow the PRINT statements that are flashed or output in 


inverse on the screen. *** If NORMAL is not included, all prints, listin s_and runs will 
continue in the last video mode. LOAD SAMPLE I-9 from the Intermediate BASIC disk or 


type the following: 


PRINT "WHAT IS YOUR FIRST 
INFUT Ag 

PRINT "HI THERE "a¢ 
INVERSE 

PRINT "HAPPY DAY TO you" 


are printed in black on a white 
background. 


Line 6 returns the video mode to 
white letters on black background. 


Line 85 clears the screen. 90 INFUT BS 
85 HOME 
Line 9 sets the video mode so that 20 FLASH 
all PRINT statements that follow ‘ 
flash on the screen. z 
LOQ PRINT "HEL "Obs Re 
Line 195 returns the video mode to 105 NORMAL 


white letters on black background. 


NORMAL. 
PRINT “WHAT IS YOUR LAST NAME, "Ag? 


Run the program. Sees 


SPEED 
Add this line to the program: 7 SPEED = 50 


Run the program. : 


The speed of printing can be set from through 255. SPEED = #) is the slowest setting. 
SPEED = 255 is the normal printing speed. All runs and listings of programs will continue at 
the last speed set. Type: LIST 


SPEED = 255 
LIST 


***Whenever_ the speed is altered in a program, include a line to set printing back to normal 
before the program's end. Add the following line: 


1f7 SPEED = 255 
Run the program. 
List the program. 


Want things back to normal? Type: 


I-10 
Packing Statements 
LOAD SAMPLE I-10 from the Intermediate BASIC disk or type the following: 


NEW 


10 HONE 


INFUT "WHAT IS YOUR NAMET" FAS 
PRINT 

PRINT “HELLO “AS 

ENU 


Run the program. 


The colon is used to pack statements together using one line number. 
Change line 2 as follows: 

20 INPUT "WHAT IS YOUR NAME?"; AS _: PRINT : PRINT "HELLO "AS 
Take out lines 30 and 49. 


Run the program. 
List the program. Compare the listing to the listing above. 


To save computer storage space for a program and to speed up execution of a program, 
several lines may be condensed to one line of program. Statements that work together to 
perform a task are commonly grouped as one line of program. 


Since there is only one line number the program can only branch to the first statement in 
the line. A GOTO cannot send the program to the middle of a packed statement. 
Correcting and modifying these long packed statements means retyping the entire line. 
Reading and following the logic of programs with many packed statements can be difficult. 


A single statement or packed statement may be at most 239 characters long, including the 
line number, 
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***NOTE: Activity programs 1-7 are review of topics included in Beginning Applesoft 
BASIC training materials. 


Program 1: REM, PRINT, GOTO 


1. LOAD PROGRAM I-1 from the Intermediate BASIC disk or type in the following: 


TS A SAMPLE PROGRAM 


y" JOHN * > "BILL 
IN 


2. Run the program. 

3. Change lines 49 and 59 to include commas instead of semicolons: 
40 PRINT "ANDY", 
50 PRINT "CAROL", 
RUN 


How does the comma change the output? 


4, Add this line: 
65 GOTO 6p 
RUN 
(To stop, hold down the CTRL key while typing C.) 
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Activities 


Program 2: LET 


1. 


2. 
3. 


LOAD PROGRAM I-2 from the Intermediate BASIC disk or type in the following: 


HOME 
LEY iA ) 
LEY i& a 


a 
RET A+B 
PRINT 

LET PRODUCT = A * B 
PRINT PRODUCT 

END 


Run the program. 
Change the following lines, leaving out the word LET: 
20 A=4 
39 B=5 
6 PRODUCT = A*B 
RUN 


Do you notice any changes in the output? 


(The word LET is optional in Applesoft BASIC.) 
Change the variable name in the following line: 


7) PRINT PRICE 
RUN 


Do you notice any changes in the output? 
(A variable name may be up to 238 characters long, but the Apple only uses the first 


two characters to distinguish them. In the program above, PRODUCT and PRICE are 
the same variable name.) 


— 


een I-13 
Activities 


Program 3: Checking for 2 Character Variable Names 


1. 


Z. 


LOAD PROGRAM I-3 from the Intermediate BASIC disk or type in the following: 


Run the program. This is what is happening in memory: 
Line 1 assigns the value 3 to C. 
Line 15 assigns the value 15 to CA. 
Line 29 assigns the value 5 to CA (the Apple only uses the first two 
characters to distinguish variable names. Line 29 replaces the value 
assigned to CA by line 15). 
Line 30 assigns the value 6 to CA. 
Line 31 assigns the value 7 to CA. 
Line 32 prints the value of C. 
Line 33 prints the value of CA. 


Line 34 prints the value of CA (the Apple only uses the first two characters 
in the variable name). 


Line 35 prints the value of CA. 
Line 37 prints the value of CA. 


Delete line 2 by typing 20 and pressing RETURN. 
Add this lines 
36 CAB =4 
RUN 
How is the output different? 
Why? 


Activities 


Program 4: INPUT 


Le 


3. 


LOAD PROGRAM I-4 from the Intermediate BASIC disk or type in the following: 


10° HOME 

20 PRINT "WHAT IS YOUR NAME "3 

30) INFUT BS 

40 PRINT “HI, * BS *.* z 

5 LET C$ = "THIS IS YOUR LUCKY DAY, * 
60 PRINT C#sBe"," 

7G «END 


anne eee 


**Notice that string variables used (BS and C$) do not first have to be dimensioned as in 
ae forms of BASIC. Up to 256 characters may be saved as a string variable (line 
Run the program. 

Change the following line: 

20 INPUT "WHAT IS YOUR NAME"; BS 
Take out line 30 by typing 30 and pressing RETURN. 
Run the program. 


Do you notice anything different in the output? 


Do you have a question mark after the question from line 20? 
Change line 2) to make a question mark appear. 


** INPUT statements without messages automatically send a question mark to the 
screen: 30 INPUT BS 


** When a message is included with an INPUT, no question mark is sent to 
the screen: 30 INPUT "WHO ARE YOU"; BS 
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Activities 


Program 5: IF-THEN 


1, LOAD PROGRAM I-5 from the Intermediate BASIC disk or type in the following: 


SSS |. 


NEW 
10° HOME 
20 LET T= 6 


30 PRINT "TYPE 0 TO HAVE THE TOTAL FRINTED," 


4Q INPUT "TYPE A NUMBERS " # N 
SO IF N = 0 THEN 90 


60 LET T=T+N 

79 GOTO 30 

80 PRINT "TOTAL = "T 
20 END 


eee See eee 


2. Run the program. 
3. Change the following line, using GOTO instead of THEN: 


50 IFN=9 GOTO gp 
RUN 


Are there any differences in the run of the program? 


4, Change the program to have -1 be the number to type to have the total printed. 


5. Add lines to have the Apple count the numbers that are typed in and then print the 
average. 


Activities 


Program 6: READ, DATA 


LOAD PROGRAM I-6 from the Intermediate BASIC disk or type in the following: 


L 


3. 


Run the program. 


HOME 
REAL Aye 
MINT AxB 


READ C#,D% 

FRINT C#*b¢ 

DATA S+é:ANN? ANDY 
END 


Change this line to include quotation marks: 


60 DATA 5, 6, "ANN", "ANDY" 


RUN 


Do you notice anything different about the output? 


1-16 


(You do not need to include strings within quotation marks in DATA statements as you 
do in other BASICS. However, if you wish to use a comma within a string, the string 
must be enclosed in quotation marks.) 


Change this line: 


60 DATA 5, 6, ST. PAUL, MN, HUNTLEY, MN 


RUN 


What happened to HUNTLEY, MN? 


Change the line to include quotation marks: 


69 DATA 5, 6,"ST. PAUL, MN", "HUNTLEY, MN" 


RUN 


Did you see HUNTLEY, MN this time? 


I-17 
Activities 


Program 7:_FOR-NEXT Loops : 
1. LOAD PROGRAM I-7 from the Intermediate BASIC disk or type in the following: 


HOME 

FOR NUMBER = 0 TO 12 
PRINT "NUMBER = “NUM 
NEXT NUMBER 

END 


2. Run the program. 
3. Change the following line to include STEP: 


2 FOR NUMBER = 9 TO 12 STEP 2 
RUN 


What is different about the output? 


Change the following again: 


20 FOR NUMBER = 12 TO # STEP -1 
RUN 


What is different about the output? 
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Activities 


Program 8; INVERSE, FLASH, NORMAL and SPEED 


. LOAD PROGRAM I-8 from Intermediate BASIC disk or type the following: 


NEW 


a | 


OME 


NT 


SFEED= 15: 


PRINT 
SPEED 
PRINT 
END 


"THIS IS as 


"St 


255 


“THIS IS NORMAL 


SLoW as I 


Tl 150 IS NICE FOR READING." 


CAN 6O." 


SPEED * 


25 Run the program. 
35 

changing lines 5, 20 and 4. 
4, 

added in the space below. 
5. Run the program. 


The speed of printing can be set from # through 255. Experiment with other speeds by 


Add lines to make the message, "THIS IS AS SLOW AS I CAN GO", print in inverse and 
the message, "THIS IS NORMAL SPEED", flash on the the screen. 


Record the lines 


UNIT II Tet 


Loops 


FOR and NEXT statements provide a simple and efficient method for repeating a sequence 
of instructions. The FOR statement labels the beginning of the loop. The NEXT statement 
labels the end of the loop. All statements between the FOR and NEXT statements are 
called the body of the loop. The body of the loop is the sequence of instructions that is to 
be repeated. Both programs below will print the square of each number | through 12. 
Notice that the FOR NEXT version is shorter. 


(Using LET and IF THEN) (Using FOR NEXT Loop) 
10 HOME 
"NUMBER" » "SQUARE * 20 PRINT "NUMBER"> "SQUARE" 
eee My Aienemees : 30 PRINT "------")"------' 
40 PRINT 
= 50 FOR N= 1 TO 12 
NyN XN 60 PRINT NoN kN 
=N¢1 90 NEXT N 
IF N » 12 THEN 100 LOO PRINT "I AM FINISHED LOOPING !* 
GOTO 60 


110) «6END 
FRINT "I AM FINISHED LOOPING!" 


END 


SAMPLE II-1A from the Intermediate 
BASIC disk. 


1. Type in the FOR NEXT version of the squaring program or LOAD SAMPLE II-1B from 
the Intermediate BASIC disk and run it. 


2s Change 3 lines to make the program print all the cubes (N*N*N) of the numbers 11 
through 29. Record the lines you changed in the space below: 


3. Change this line to print cubes of even numbers 2 through 20: 
50 FOR N=2TO 2 STEP 2 
RUN 
4, Change this line to print all the cubes starting with 1 and ending with pf: 


50 FOR N = [NTO STEP -1 
RUN 


Loops 
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In the squaring and cubing program the loop variable (N) was used in the body of the loop. 
The value of the loop variable should not be altered in the body of the loop by a LET 
statement (LET N = N-1)...or the results will be quite strange. Try this program or 


LOAD SAMPLE II-2A from the Intermediate BASIC disk: 


Run the program. 


(To stop, hold the CTRL key down while typing C.) 


The loop variable does not have to be used at all in the body of the loop. It may be used only 
to control the number of times the loop is repeated. Type in this program or 


LOAD SAMPLE I-2B from the Intermediate BASIC disk: 


HOME 


FOR A=i17T0 5 
PRINT "PROGRAMMING IN BASIC" 
NEXT A 
END 


Run the program. 


Add these lines: 49 FORB=1TO2 
5) PRINT "IS FUN" 
69 NEXTB 
RUN 


This is an example of a nested loop. Loop B is inside loop A. 
completed, loop B is repeated 2 times. 


Each time that loop A is 
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Nested Loops 


Loops may be placed within loops...but loops must never overlap. A way to check the 
nesting of loops is to draw lines connecting the FOR statements with their NEXT 
statements. These lines should never cross each other. Type the following or 

LOAD SAMPLE II-3 from the Intermediate BASIC disk: 


tim 
aie 60 PRINT "BLOCK #*B 
3 70 FOR R = 1 TO 2 
¢ eee Bal roY [20 PRINT "ook" 
ORR=1TO2 90 NEXT R 
2 400 PRINT 
ine EXT R 110 NEXT B 


NEW 


LO) HOME 

20 PRINT "THIS WILL PRINT 3 BLOCKS" 
30° PRINT "WITH 2 ROWS OF 4 STARS." 
40 PRINT 

SO FOR B= 1703 


120 END 


ee See er ne nee 


Make these changes: 


¢ 
NEXT B 


Run the program. 


90 NEXTB 
11) NEXTR 
RUN 


What happens? 
——————S 

Why? 

ee 
Change the lines back to: 

90 NEXTR 

119 NEXTB 

RUN 


Add two lines to make the APPLE repeat drawing the 3 blocks two times. 
Record the lines you add in the space below: 


(HINT: Also add line 11 SPEED = 175 and line 119 SPEED = 255.) 
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READ-DATA 


READ-DATA statements are useful when you wish to store data for variables within a 
program. This is easier than typing the data in for INPUT statments each time the program 
is run. It may also be more efficient than setting the value for each variable with a LET 
statement. 


The READ’ statement contains the variable in which the string or number in the DATA 
Statement will be stored. Items in DATA statements must occur in the order in which the 
READ statements will ask for them. The Apple uses a "pointer" which moves from one 
DATA item to the next as the READ statements call for them. Type in the following 
Program or LOAD SAMPLE II-4 from the Intermediate BASIC disk? 


Run the program. NEW 


10 HOME 
Each time the Apple travels 20 PRINT "SCORES ON 20 FT. QUIZ" 
through the S loop and reads a 
value for P the pointer in the 30 PRINT "POINTS", "PERCENT" 
DATA statement moves to the 40 (PRINT ®2<ne== Ay Rear * 
next item as illustrated with thew 50 FOR S = 170 4 ; 
below: Ee READ F 

70 PRINT PrP / 20 * 100 

80 NEXT S$ 

90 END 


° L0G DATA 205Or15"17 


19) DATA 2, 0, 15, 17 TRUN 


SCORES ON 20 PT. QUIZ 
POINTS PERCENT 


Loop with S = 3: 


10 DATA 29, 0, 15, 17 


Loop with S = 4: 


10) DATA 20, , 15, 17 4 


Change the following line to make the program loop 5 times: 


5) FORS=1TO5 
RUN 


What message does the Apple give you? 


(The DATA pointer ran out of numbers when trying to READ a value for P in line 69.) 


READ and DATA 


If more than one variable is used in a READ statement the DATA pointer moves as many 
positions as is needed to get values for each variable. Care must be taken to make sure the 
items in the DATA statements match the variable type in the READ statements (e.g., NS for 


pe for anumber). Type the following or LOAD SAMPLE II-5 from the Intermediate 


HOME 
PRINT "FROGRAM TO AVERAGE" 
PRINT “PTS. ON 3 TESTS." 
FOR S$ = 1 TO 4 

N$rAvBeC 


PRINT "NAMES "N& 

PRINT "TOTAL! "Tr"AVERAGE? "T / 3 
NEXT S 

END 

DATA JOr9+8r10;MARIEN?9210%10 


DATA ERNIEsS+7729vALICE? 1073 75 


Run the program. Loop with S = |: 


Each time the Apple travels 5M DATA JO, 9, 8, 1f, MARIEN, 9, 10, 19 


through the S loop and reads 
values for NS, A, B and C, 


the pointer in the DATA Poop win Sie: ¥ 
statement moves as_ illus- 
trated with the at the 5{P DATA JO, 9, 8, 19, MARIEN, 9, 10, 19 


right: 
Loop with S = 3: 


5) DATA JO, 9, 8, 19, MARIEN, 9, 10, 19 


501 DATA eWne, 5; 7; 9, ALICE, 16, 3, 5 


Loop with S = 4; 


50 DATA JO, 9, 8, 1f, MARIEN, 9, 10, 19 


Vv 
501 DATA ERNIE, 5, 7, 9, ALICE, 19, 3, 5 


When the DATA pointer reaches the last item in a DATA statement the Apple searches 
through the program for another DATA statement and continues from there. Data may be 
added to this program by adding DATA statements after line 51 and changing the loop 
number in line 40. 


II-6 
READ, DATA and RESTORE 
It is possible to use the same DATA more than once in a program. A RESTORE statement is 
used to move the DATA pointer back to the first item in the first DATA statement. 


Suppose we want to have the students' names and test scores for each test printed after the 
averages are printed. We need to RESTORE the DATA pointer before DATA is READ. 


Add the following lines to SAMPLE II-5 on page Il-5: 


S SPEED= 150 
110 PRINT 
120 PRINT “TEST SCORES" 

130 FOR X = 1 70 4 

140 READ N¢vAr BoC 

150 PRINT "NAMES “NS 

160 PRINT "A="Av"B="By "C="C 


170) PRINT. 
180 NEXT X 
190 SPEED= 255 


200 END 


Run the program. 


What message do you get? 


Add this line: 195 RESTORE 
RUN 


Location of DATA pointer after loop S is finished: 


59 DATA JO, 9, 8, 10, MARIEN, 9, 19, 16 


51 DATA ERNIE, 5, 7, 9, ALICE, 10, 3, 5 


At line 15, the RESTORE statement moves the pointer back to the first item in the first 
DATA statement in the program. 


59) DATA JO, 9, 8, 19, MARIEN, 9, 1, 19 


501 DATA ERNIE, 5, 7, 9, ALICE, 10, 3, 5 


Type: SAVE POINTS 
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READ DATA with Flags 


Using READ within a FOR NEXT loop requires counting the DATA items to prevent the 
"OUT OF DATA" error message. Another method of using READ is checking for an end of 
DATA item or "flag". Type in the following program or LOAD SAMPLE II-7 from the 
intermediate BASIC disk: 


10 HOME 

20 PRINT "THIS IS A CHECKBOOK BALANCING PROGRAM" 
30 PRINT * $ 

40 REM kk BALANCE *xx 
SO READ B 

60 PRINT "BEGINNING BALANCE = $'B 
70 REM *xkk DEPOSITS «xx 


Line 50 takes the first item in the 
first DATA statement as the value 
for B, the beginning balance. 


The Apple will continue to loop 
from line 8@-119 and add data to 
the balance until it reads a value 
of f in a DATA statement. 


80 READ D 

90 IF D = 0 THEN 130 
100 LETB=B+Q 
110 GOTO 80 


120 REM xk CHECKS kx 


The Apple will continue to loop 
from line 130-16 and subtract data 
from the balance until it reads a 
value of § in the DATA statement. 


130 «READ C 

140 #IF C = 0 THEN 170 

150 LET B=B-C 

160 GOTO 130 

170 PRINT “ENDING BALANCE = $"B 
180 END 


Line 519 ends in a f to "flag" the 
end of the deposits. 


S00 DATA 593.83 
S10 DATA 278.04+12170 


Line 52) ends in a 9 to "flag" the [520 [ATA 9941 66597750712,02 957477 911.2690 


end of the checks. 


Run the program. 


What is the ending balance? 
Change line 519 to contain more deposits by typing: 


SIPDATA 278.04, 12, 300, 50, 0 
RUN 


Is the ending balance $350 more? 
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Variations of the LIST Command 


LOAD SAMPLE II-7 from page II-7. 


Type the following, This will happen 
LIST (The entire program will be listed.) 


HOME 


(Holding the CTRL key down 
while typing S_ will tem- 
Porarily stop a program 
listing. Holding down the 
CTRL key while typing S 
again will resume the 


PRINT ‘THIS IS A CHECKBOOK BALANCING PROGRAM* 
PRINT * : ; “ ‘ 
REM 08x BALANCE 

READ B 

PRINT ‘BEGINNING BALANCE = $*B 

REM xx DEPOSITS xx 


READ D 


listing.) IF D = 0 THEN 130 
LET B= B+D 
GOTO 80 


REM kx CHECKS 4k 

READ C 

IF C = 0 THEN 170 

LET Be B-C 

GOTO 130 

PRINT ‘ENDING BALANCE = $°B 
END 


DATA S973.83 
DATA 278.0491270 


DATA = 9741.65%7750r12.02757.77711.2690 


LIST, 30 


10 HOME : 
20 PRINT "THIS IS A ease Gels BALANCING PROGRAM 


30 PRINT * 


LIST 59, 


$93.93 
278.0491270 


9941665177150 112.02157+77711.2690 


LIST 100 (Only line 19 will be listed.) 


100 LET B= 8 +0 


LIST 49, 60 (All lines from 4 through 6 will be listed.) 


40 REM 40k BALANCE 400k 
READ B 
60 PRINT ‘BEGINNING BALANCE 


or 


LIST 49-69 
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Activities 


Program 1: Nested Loops 


1. Write a program using nested loops that will produce the following output: 


2. Modify the above program to produce the following output (HINT: Use commas in the 
PRINT statements.): 


x x 
XXXX XXXX 


x KKK KX 


Program 2: READ, DATA 


LOAD PROGRAM II-2 from the Intermediate BASIC disk or type in the following: 


lL 


2. 


NEW 


10 
20 
30 
40 
50 
E19) 
70 
80 
90 
100 
110 
120 
130 


Run the program. 


HOME 
FOR T = 


PRINT "THE FRODUCT OF THE NUMBERS" 
PRINT "FROM.1 TO "R* IS "pe, 


— 


I-19 


Change lines to produce the sum of the numbers rather than the product. Record the 


lines you changed 


in the space below: 


Change a line to produce the sum of the following numbers: 


1 tolf, 1 to 1p, 


1 to 50 and | to 5 


Record the line you changed in the space below: 


Run the program and record the results in the table below: 


Predict the following sums. Then change lines and run the program to record the 


actual sums. 
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Program 3:_Reusing an Old Program by Changing DATA 


1. LOAD POINTS Program from page II-6. Change the DATA in the program to average 
and print scores on three tests for the following students: 


Test #1 Test #2 Test #3 
HILDA 7 12 15 
BART 13 vA 14 
JENNY 12 12 15 
ARTHUR 15 15 15 
MARTHA 14 1p 15 


re Record the lines you changed in the space below: 


Program 4; READ, DATA AND RESTORE 


1, LOAD SAMPLE Il-7 from page II-7. Add lines to make the prograin 
RESTORE, READ, and PRINT the individual deposits and checks after it prints the 
ending balance. Record the lines you added in the space below: 


After adding and changing lines, type: SAVE CHECKBOOK 


2. Change lines 59, 519 and 529 to reflect your checkbook entries and run the program to 
balance your checkbook. 


Activities M12 


Program 5: Using DATA Flags 
1. LOAD PROGRAM II-5 from the Intermediate BASIC disk or type in the following: 


HOME 
LET L¢& 


PRINT "x ALLEY CATS BOWLING TEAM xk" 
PRINT L$ 

FOR P = 1 70 2 

LET GT = 0% LET NG 

REAL NS 

PRINT "PLAYER? "N$ 

READ Gi,G2/G3 

LET T = Gi + G2 + G3 

LET GT = GT + T 

LET NG = NG + 3 

PRINT "SCORES="G1,G2/G3 

PRINT “TOTAL= "Tr *AVERAGE= * T / 3 
REAL F 

IF F = - 1 THEN 90 

PRINT "GRAND TOTAL = “GT 

PRINT “NUMBER OF GAMES = "NG 


PRINT "OVERALL AVERAGE = "GT / NG 


PRINT L$ 

NEXT FP 

END 

DATA MARY 

DATA 15071489219 
DATA 1 

DATA 15571457165 
DATA -2 

DATA JO 

DATA 17071307100 
DATA -1 

DATA 14071407160 
MATA -2 


Run the program. 
Add lines of DATA to include the following scores: 


MARY: 188, 200, 175 
JO: 155, 130, 177 


Change the program to include two more players with the following scores: 
Week 1 Week 2 Week 3 


JAN: 180, 165, 140 133, 144, 122 150, 140, 150 
DOUG: 179, 164, 139 134, 145, 150 201, 180, 300 


UNIT III TL 


The Text Screen 


A diagram of the Apple text screen 
is shown at the right. 


Up to 24 lines may be printed on 
the text screen. Line | is at the 
top of the screen and line 24 is at 
the bottom. Printing more than 24 
lines will result in scrolling. The 
top line of the screen will dis- 
appear as all lines move up (scroll) 
one line to make room for the new 
line at the bottom of the screen. 


Each line of print is 4@ characters 
or columns wide. Column | is at 
the far left of the screen. Column 
4 is at the far right. 


TAB, HTAB and VTAB are three Applesoft BASIC commands to format printed material on 


the text screen. 


There are 4f columns across the Apple screen for printing text. To print the word 
"MICROCOMPUTER" starting at the 5th column and the word APPLE II starting in the 2fth 
column, type in the following program or LOAD SAMPLE III-! from the Intermediate BASIC 


disks 


HOME 


PRINT °12345678901234567989012 345679901234567890" 
FRINT * MICROCOMPUTER"? " 4 APPLE II" 


END 


Leave 4 spaces between Leave 2 spaces between 


the quote and the 


the quote and the 


word MICROCOMPUTER. 


Run the program. 


-_eoooee 


The output should look like this: 


254567890123 4567 


MICROCOMPUTER 


APORE. SE 


TAB M2 


Having to count and type spaces between quotes and words, in order to get information 
printed in special columns, could become a very tedious task. 


Change this line in SAMPLE III-1 on page III-1: 
39 PRINT TAB (5) "MICROCOMPUTER" TAB (29) "APPLE II" 


Don't leave any space between 
the quote and the word. 


Run the program. 


The output should look like this: 


12345678901234567890123456789012345467890 


MICROCOMPUTER AFFLE IT 


TAB causes printing to begin at the column number named within parentheses. TAB must be 
used in a PRINT statement. The number enclosed in parentheses may be a number from #) to 
255. The Apple does not check to see if there is enough room to print at that column. TAB 
tells the computer where to begin printing. If there is not enough space on the screen to 
print the information, printing continues on the next line. 

Change this line in SAMPLE III-1 on page III-1: 


39 PRINT TAB (35) "MICROCOMPUTER" 


Run the program. 


The output should look like this: 


OMPUTER 


TAB cannot be used to move the printing backwards. If this is attempted the TAB is 
ignored. Change this line in SAMPLE III-! on page III-1: 


30 PRINT TAB (20) "MICROCOMPUTER" TAB (30) "APPLE II" 


Run the program. 


ro 
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HTAB 


The HTAB command works much the same as the TAB function, except it is not used within 
a PRINT statement. The following programs do the same thing. Type and run each program 
below or LOAD and run each sample from the Intermediate BASIC disk: 


SAMPLE III-2A 


HOME 
SPEED= 150 
FOR X = 1 TO 40 


PRINT TABC X)"x* 
NEXT X 

SPEED= 255 

END 


SAMPLE III-2B 


HOME 

SPEED= 150 

FOR X = 1 TO 40 
HTAB X 

PRINT "x" 


In SAMPLE III-2A, TAB is within the PRINT statement. The column number is enclosed 


within parentheses. 


In SAMPLE IlI-2B, HTAB is a separate line of the program. The HTAB number is not 


enclosed within parentheses. 


HTAB will print information in the column named ignoring what may already be printed 
there. Type in the following or LOAD SAMPLE III-2C from the Intermediate BASIC disk: 


HOME 


SPEED= 
HTAB 10 


PRINT "MICROCOMPUTER" 3 
HTAB 10 


PRINT 
SPEED 


EN 


Run the program. 


"APPLE" 
= 255 


Change this line by leaving off the semicolon: 


4 PRINT "MICROCOMPUTER" 


Run the program. 


In-4 

VTAB 
There are 24 lines (49 columns wide) on the Apple screen for printing text. The lines are 
numbered | to 24 from top to bottom. A VTAB will cause the Apple to print at the line 


number following the VTAB command. Only numbers | through 24 may be used with VTAB. 
Type in the following or LOAD SAMPLE III-3A from the Intermediate BASIC disk: 


NEW 


10 HOME 
20 SPEED= 100 
30 VTAB 1 


40 PRINT "THIS IS ON LINE NUMBER i.¢ 
SO VTAB 16 
60 PRINT "IS FUN" 


70 VTAB 10 
80 PRINT "PROGRAMMING" 
90 YTAB 13 


100) PRINT "THE APFLE* 
110 VTAB 20 

120 PRINT "AND EASY," 
130 SPEED= 255 

140° ~=END 


| 
Before running the program, predict what the screen output will look like. Record your 
prediction in the space below. 


Run the program. 


VTAB will print on the line named, ignoring what may already be printed there. Change the 
following line in the above program: 


99 VTAB 1p 


Run the program. 


VTAB and HTAB may be combined to place printing both horizontally and vertically on the 
screen, Type in the following or LOAD SAMPLE III-3B from the Intermediate BASIC disk: 


INEW \/ 


LO HOME 


20 HTABR 13! VTAB 11 
30 FLASHSFRINT'I AM THINKING" NORMAL 
40 EN 


Run the program. 


I-5 
Pausing with Loops 


A FOR-NEXT loop may be inserted between screens of instructions to slow down the time 
between the first set of instructions being printed and the screen being cleared for the next 
display. There is nothing in the body of the loop. It is only included to take up time. Type 
the following or LOAD SAMPLE III-4 from the Intermediate BASIC disk: 


HOME 

INPUT “WHAT IS YOUR NAME? "#AS 

PRINT $ PRINT "HELLOy " AS "," ?} PRINT 
VTAB 22 


PRINT "ONE MOMENT PLEASE . . .* 
FOR P = 1 TO 15003 NEXT P 
~ HOME 
PRINT “ARE YOU ENJOYING BASIC?" 
INPUT "YES OR NO "3Q% 
VTAB 22 
PRINT "LET ME THINK A MINUTE ABOUT THAT «. « «" 


; 20 FOR P = 1 TO 1500: NEXT P 
This gets the Apple go- 7” IF Q$ = "YES* THEN 140 
ing around in circles 


*NO® 
159 times to take up ean a NO" THEN 180 
time. 


HOME + FLASH ¢ PRINT *I’M GLAD!!!" NORMAL 

GOTO i930 i 

HOME : SPEED= 110: PRINT "I’M SORRY TO HEAR 
THAT.*? SPEED=255 


190 FOR P = 1 TO 1500! NEXT P 


200 HOME 
210 PRINT "GOOD BYE» * Ag ‘." 
220 END 


Run the program. Answer the questions. 


In the above example, the program determines the speed at which the user is led through 
each screen of information. Change the following lines in the above program to give the 


person running the program more control over the speed at which the user is led through 
each screen of information: 


50 PRINT "PRESS ANY KEY TO GO ON..."5 
60 GETK$ 

110 PRINT "PRESS ANY KEY TO GO ON..."; 
120 GETK$ 


199 PRINT "PRESS ANY KEY TO CONTINUE"; : GET KS 


Run the program. 


Il-6 
GET 


The GET statement introduced at the bottom of the Previous page is similar to the INPUT 
statement. GET makes the Apple wait for the person running the program to press a single 
key. The value of the key pressed is stored in the variable location following the word GET. 
If a numeric variable is used with GET (GET A, GET X, etc.) only number keys pressed will 
be accepted. If a string variable is used with GET (GET AS, GET XS, etc.) any key pressed 
will be accepted. It is a good idea to use string variables with GET, 


Once a single key is pressed, the Apple goes on with the next statement of the program. 
The RETURN key does not have to be pressed as with the INPUT statement. Type in the 
following or LOAD SAMPLE III-5 from the Intermediate BASIC disk: 


NEW 

10 HOME 

20 PRINT "PRESS ANY KEY ON THE KEYBOARD"? 
30 GET Tt 


40 PRINT ? PRINT 

SO PRINT "YOU PRESSED: * Ts 
60 VTAB 12 

70 PRINT "AGAIN? Y OR N "3 
80 GET AS 

90 IF AS’ = "Y" THEN 10 

100 HOME : PRINT ‘SO LONG," 
110 END 


$l 


Run the program. 


Answer "Y" to the "AGAIN?" question and try pressing different number, letter and 
character keys. 


-—e—ooooo 


Change the following lines to use number variables instead of string variables in the GET 
statement: 


30 GET T 
5? PRINT "YOU PRESSED: "T 


Run the program and press number keys on. y- Try a letter key. 


What hanpens? 
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LEN and STRS 


The LEN function will determine the length of a string variable value. The Apple will count 
all spaces, punctuation and characters in calculating the length of a string. Type in the 
following or LOAD SAMPLE III-6 from the Intermediate BASIC disk: 


SS SS a eee 


NEW 


10 HOME 

20 PRINT "TYPE ANYTHING YOU WISH." 

30. INFUT S¢ 

40 PRINT ¢ PRINT 

SO PRINT "YOU TYPED$ *": PRINT S$?PRINT 
60 LET L = LEN (8%) 

70 PRINT "THERE ARE “L* CHARACTERS AND SFact 
80 PRINT $ PRINT "AGAIN? Y OR N “3! GET KS 

90 IF K$ = "Y" THEN 10 

100 HOME 3 PRINT ‘FAREWELL! * 

110) «END 


Run the program. 
Type a single word the first time. 


Answer "Y" to the "AGAIN?" question and try longer messages. 


*(CAUTION: The maximum length of a string is 255. Try something longer when running the 
program. What is the error message? 


To determine the length of a numeric INPUT, the numeric value must first be changed to a 
string value. LEN only works for string values. STRS will change a numeric value to a 
string value. Change and add the following lines in the above program: 

20 PRINT "TYPE A NUMBER." 

30 INPUT N 

35 LET S$ = STRS (N) 


Run the program. 
Try the following numbers and record the number of characters in each: 
37 ____ characters +2815 ___ characters 712345 __ characters 


37.8 ____ characters 9.2815 characters +12345 ___ characters 


I-8 
LEFTS and RIGHTS 


The LEFTS function will cause the Apple to look at the left part of a string. Type the 
following or LOAD SAMPLE III-7 from the Intermediate BASIC disk: 


Sony 
NEW 


10 HOME 

20 PRINT "TYPE A WORD: ‘“? 

30  INFUT WS 

40 PRINT ? PRINT “YOU TYPED? * We 

SO PRINT "IT HAS " LEN (W%)" CHARACTERS: * 

60 PRINT "THE FIRST LETTER IS * LEFT (W#r1)"-" 
70 \YTAB 12% INPUT “AGAIN? "FAS 

80 IF LEFT (A$r1) = "Y" THEN 10 


90 HOME 
100 PRINT "SEE YA!* 
110- END 


Ee | 


Run the program. 

Type ary word you wish. 

Answer "YES" to the "AGAIN?" question. 

Type any word you wish. 

Answer "YES I'D LOVE TO" to the "AGAIN?" question. 

(Line 80 only checks the first character of your answer in A$. Any answer beginning with 
"yY" is understood to mean you wish to type another word.) 


Change the following line in the above program: 
69 PRINT "THE FIRST TWO LETTERS ARE " LEFTS (WS, 2)"." 


Run the program. 


Change a line to make the program print the first 3 characters of any word typed. Record 
the line you changed in the space below: 


Run the program. 
What happens when you type a word with only 2 letters? 


Change the following line in the above program: 
69 PRINT "THE LAST LETTER IS " RIGHTS (WS, 1)"." 


Run the program. 


Change a line to make the program print the last two letters of any word that is typed. 
Record the line you changed in the space below: 


Run the program. 


Il-9 
MIDS 


The MIDS function is a way to look at the middle parts of Strings. Type the following or 
LOAD SAMPLE III-8A from the Intermediate BASIC disk: 


2 HOME 
20 PRINT "TYPE A WORD WITH AT LEAST 8 CHARACTERS." 
30 INPUT WS 

40 PRINT $ PRINT 

50 IF LEN (WS) = 8 THEN 20 

60 PRINT "YOU TYPED? “ Ws 

70 PRINT "IT HAS " LEN (W$)" CHARACTERS. " 

80 PRINT $! PRINT 

90 PRINT "THE PART OF YOUR WORD" 

100 PRINT "BEGINNING WITH THE 2ND LETTER" 


110 PRINT “AND PRINTING 4 LETTERS IS "3 
120 PRINT MIDS (W$r274) *," 


130 VTAB 20 

140 INPUT "AGAIN? "FAG 

150 IF LEFT (A%*1) = "Y" THEN 10 
HOME 

END 


Run the program. 


MIDS may be used to look through a string, one character at a time, in search of some 
special character. Type the following or LOAD SAMPLE III-B from the Intermediate BASIC 
disk: 


HOME 
20 PRINT "TYPE A NUMBER WITH A DECIMAL FOINT." 


3O INPUT NS 

40 PRINT $ PRINT 

SO LET L = LEN (N$) 
60 FOR A= 1 TOL 


70 LET M& = MIDS (NS»Ar1) 

80 IF M$ = "," THEN 120 

90 NEXT A 

100 PRINT "THERE IS NO DECIMAL FOINT IN "N# "." 

110 GOTO 150 

120 PRINT "THE DECIMAL POINT IS CHARACTER "A ", 

130 PRINT "THERE ARE “A - 1" CHARACTERS BEFORE * 
140 PRINT "AND "Lo - A" AFTER THE DECIMAL POINT." 
150 INPUT "AGAIN? "3 As 

160 IF LEFT#(ASe1) = "Y" THEN 10 

179 HOME 

END 


Run the program. What happens when each of the following numbers are used? 


4.7890 9 0.9 -3.768 +5.6 298 
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Activities 


Program |: TAB 


Write and run a program using TAB to print your name, rank and phone number 
centered on the T.V. screen as shown below: 


MARCIA HORN 
ROOKIE 
633-9110 EXT. 195 


hw 


Program 2: HTAB and VTAB 


lL LOAD PROGRAM III-2 from the Intermediate BASIC disk or type the following: 


“PLEASE TYPE YOUR FIRST NAME. * 
FS 
“PLEASE TYPE YOUR LAST NAME." 
L$ 


Ls 
Fs 


2. Run the program. 
3. | Change and add lines using HTAB and VTAB to print the first name somewhere 


at the bottom center of the screen and the last name somewhere at the upper 
center of the screen. Record the lines you add and change in the space below: 


4, Run the program. 
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Activities 


Program 3: FOR-NEXT Pausing Loop 


Write and run a program using the FOR-NEXT pausing loop that will: 


Make the Apple do 
the following. 


BASIC statement to do it. 


Clear the screen. 


Print "GET READY". 
Pause. 

Clear the screen. 
Print "GET SET". 


Pause. 


SS 


Clear the screen. 
Flash "GO!" on the screen. 


Pause. 


Clear the screen. 


Print a good-bye message. 


Program 4: GET 


1. Change and add lines in the above program that will give the person running the 
program control over the speed at which screens are changed. Use GET and VTAB 
lines. Record the lines you change in the space below: 


2. Run the program. 
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Activities 


Program 5: GET 


Write a program using PRINT, INPUT, GET and IF-THEN to produce the following © 
output. (Underlined words are typed in at the keyboard by the person running the 
program.) 


The output will look like the following when answering "Y": 


RUN 
WHAT IS YOUR NAME? DAVID 
Screen It HI, [AVID. 


PRESS ANY KEY TO CONTINUE 


HOPE YOU ARE HAVING FUN WITH AFPLESOFT 
INTERMEDIATE BASIC. 


Screen 2: 
DQ YOU UNDERSTAND THE GET STATEMENT? 


PLEASE TYPE Y FOR YES AND N FOR NO? Y 


SUPER 


The output will look like the following when answering anything other than "Y or N" 
and then answering "N": 


—————— 
RUN 
WHAT IS YOUR NAME? MAGGIE 


HI+ MAGGIE. 
Screen |: 
PRESS ANY KEY TO CONTINUE 


en ee 


APPLESOFT 


HOPE YOU ARE HAVING FUN WITH 
INTERMEDIATE BASIC. 


DO YOU UNDERSTAND THE GET STATEMENT? 
Screen 2: 
PLEASE TYPE Y FOR YES ANDI! N FOR NO? 


a 
PLEASE TYPE Y FOR YES AND N FOR NO?_N 


OH MY. TIME TO BONE UF; 


Program 6: LEN 
ks 


2. 
3. 


4, 


LOAD PROGRAM III-6 from the Intermediate BASIC disk or type the following: 


Activities 


HOME 
VTAB 8% HTAB S 

PRINT "THIS IS A QUIZ ABOUT APPLES." . 
PRINT ¢ INPUT "WHAT IS YOUR NAME? "NS 
VTAB 163 PRINT "PRESS ANY KEY"'$! GET K¢ 
FOR Q= 1 7T0 3 
HOME ? YVTAB S 
REAL Q$»CAs 
PRINT Q¢ 

PRINT $ INPUT A$ 

IF CA’ = A$ THEN 190 


PRINT $ PRINT "SORRY» "N$"y THE ANSWER IS" 
PRINT CAS *." 

GOTO 200 

PRINT $ PRINT "CORRECT, "NS*!!!* 

VTAB 233 PRINT "FRESS ANY KEY"#? GET K$ 
NEXT @ 

HOME + PRINT "SO LONG, " Ne "," 
END 


TATA WHAT IS THE APPLE’S LANGUAGE CALLED?» BASIC 
DATA FROGRAMS ARE STORED PERMANENTLY ON -?- 


DATA THERE ARE --?-- SECTORS ON A OISK.-: 


Run the program. 
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Add lines between 119 and 16 and use LEN to give the person running the program the 


following hint and a second chance before telling them the correct answer: 


WHAT IS THE APFLE’S LANGUAGE CALLED? 


Sample Screen: ?PEORTRAN 


NO» MARCIA. 


HINT-THE ANSWER HAS 5 LETTERS. 
TRY AGAIN ? COBOL 


SORRY: MARCIA: THE ANSWER IS 


PASTE 


SAVE APPPLE QUIZ 


Program 7: LEFTS 


Le 


2. 
3. 


4 


kw 


Activities 


LOAD APPLE QUIZ from Activity Program 6 on page III-13. Add lines using LEFTS to 
give the person running the program a second hint and a third try before telling them 


the correct answer. 


Sample Screen: 


WHAT IS THE APPLE’S LANGUAGE CALLED? 


?FORTRAN 


NO» HEIDI. 
HINT-THE ANSWER HAS 
TRY AGAIN ? COROL 


Ss 


LETTERS. 


NO. THE FIRST LETTER IS B, 


TRY AGAIN ? BRAIN 


SORRY» HEIDI» THE ANSWER IS 


BASIC. 


Run the program and answer questions incorrectly. 


Run the program again and answer questions correctly. 


Optional: 


Change the DATA statements to your own questions and correct 


answers. Change line 6) if you want more than 3 questions. SAVE 
(give your quiz a name). 


Program 8: RIGHT. 


1. 


3. 


LOAD PROGRAM III-8 from the Intermediate BASIC disk or type the following: 


Run the program. 


HOME 


INFUT "TYPE A WORD: * 


SPEED= 150 
LET. 
FOR A 


2, TOL 


LEN (WH) 


PRINT LEFT& (WHrA) 


NEXT A 
SPEED= 255 
END 


3 


Wt 


Change a line to print the word typed in parts starting with the right of the word as 


below: 


Sample Run: 


TYPE A WORD: CAT 
T 


aT 
CAT 
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Activities 


Program 9: MIDS 


1. LOAD SAMPLE I1l-8B from page III-8. 


2. Change the program to search through any word typed in and look for the letter X. 
The output should look like the following: 


If an X is in the word: 


If there is no X in the word: 


If an X is the first letter: 


If an X is the last letter: 


TYPE A WORD? 
‘MAXIMUM 


THE X IS CHARACTER 3. 

THERE ARE 2 CHARACTERS BEFORE 
AND 4 AFTER THE X, 

AGAIN? 


TYPE A WORD: 
?MINIMUM 


THERE IS NO X IN MINIMUM. 
AGAIN? 


TYPE A WORD: 
PX-RAY 


THE X IS CHARACTER 1. 

THERE ARE 0 CHARACTERS BEFORE 
AND 4 AFTER THE X. 

AGAIN? 


A WORD: 


THE X IS CHARACTER 2- 

THERE ARE 1 CHARACTERS BEFORE 
AND O AFTER THE X. 

AGAIN? 


3. CHALLENGE!!! Add and change lines using LEFT$ and RIGHTS to print the letters 
that come before and after the first X found in a word. 


UNIT IV IV-1 


INT (the INTeger Function) 


Results of computation in Applesoft BASIC are given as decimals. In division, lengthy 
decimal remainders are quite common. The Program application may only require a whole 
number part or a decimal rounded to a set number of Places. INT is an Applesoft function 
that will help manage these very precise decimal answers. LOAD SAMPLE IV-1 from the 
Intermediate BASIC disk or type the following. 
q HOME 
20 FOR X = 1705 
30 INPUT "TYPE A NUMBERS "# N 
40 INPUT "DIVIDED BY? "3 0 
SO PRINT N" DIVIDED BY "DY = "N 7 on 
$0 PRINT “INT(N/D) = " INT (N / BI) 
70 PRINT ? PRINT 
!@0 PRINT "PRESS ANY KEY TO GO ON "#? GET KS 
, 90 HOME 
100 NEXT X 
110 PRINT "DO YOU UNDERSTAND INT?" 
120 PRINT "IF ‘NOT, TYPE RUN" 
13@ PRINT "AND TRY MORE NUMBERS." 
END 
NUMBER DIVIDED BY INT(N/D) 
(N) (D) 
36 
36 
INT tells the Apple to evaluate the expression within parentheses and then compute the 
greatest integer less than or equal to the value of the expression. INT rounds down and 
drops the decimal part. The integer function returns the integer that is just to the left of 
the value on the number line. 
INT (-13/4 13/45 3.25 INT (7/8, 0.875 


~4 -3 -2 ol 1] | 2 


INT to Check Divisibility i a. 


INT is a useful function in mathematics as a check for divisibility and finding factors. To 
determine if a number is divisible by 3, the number is divided by 3 and the remainder is 
examined, If the remainder is zero then the number is divisible by 3. The following flow 
chart and program illustrate the use of INT as a check for divisibility. LOAD SAMPLE IV-2 
from the Intermediate BASIC disk or type the following: 


10 HOME 
20 INPUT "TYPE A NUMBERS "# N 


30 LETQ=*=N/ 3 


40 %IF Q = INT (Q) THEN 70 


SO PRINT N* IS NOT DIVISIBLE RY 3," 
60 GOTO so 


The number [S 
divisibie by 3. 


70 PRINT N" IS DIVISIBLE BY 3.° 


‘™ 
No. Yes———__$_—______} 80 PRINT 
20 INPUT "AGAIN - Y OR N ? "3A 
100 IF LEFT$ (At%si) = "Y¥" THEN 106 
110 HOME 
= 120 END 
Run the program. Circie the numbers below that have 3 as a factor (are divisible by 3): 
8 15 421 822 943 21235 37037034 
Change the lines in the program to check if numbers are divisible by 8. Record the lines you 
changed in the space below: 
r i 


Run the program. Circle the numbers below that are divisible by 8 (have 8 as a factor): 


16 28 184 1000 188 1883 18888 


IV-3 
INT to Round Decimals 
Chopping off the decimal part may not always be desirable...especially in work with dollar 


amounts, averages and percents. INT is a useful function in rounding decimal numbers. If a 


number is to be rounded to the nearest hundredth (penny), the Apple must go through the 
following steps: 


Number to be rounded = 11.5871 


1 Add half of the round- 11.5871 
ing unit to the number +005 
(% of Pl = .05). 11.5921 
x199 
2. Multiply by 199. 1159.21 
3. Determine the greatest INT (1159.21) = 1159 
integer. 
4. Divide the number by 1159/19) = 11.59 
1pp. 


LOAD SAMPLE IV-3 from the Intermediate BASIC disk or type the following: 


SINEW 


10 HOME 

20 INPUT "TYPE A NUMBER: ‘? 
30 LET R N + .0053 PRINT R 
40 LET R = R & 1003 PRINT R 
50 “LET R INT (R)? PRINT R 


N 


60 LET R=R / 100 

70 PRINT N° ROUNDED TO HUNDOREDTHS IS "Ro." 
80 INFUT "AGAIN ~ Y OR N ? "sas 

90 IF LEFTS (A$s1) = "Y" THEN 10 

100 HOME” 

110° END 


Run the program. Use the following numbers and record the results below: 


Rounded to hundredths Rounded to tenths 


Sl ORIN eh cea, 
2 ee 


Change lines in the program to round numbers to the nearest tenth. Record the lines you 
changed in the space below: 


Run the program. Use the numbers used in rounding to hundredths. Record your results in 


RND (the RaNDom Function) 


A good part of the appeal of computers in drill and simulations is their ability to provide 
unpredictable problems and situations. The RND function causes the computer to select a 
number randomly. The random number can then be used as part of a math problem or signal 
the computer to take a certain set of steps depending on the number selected. LOAD 
SAMPLE IV-4 from the Intermediate BASIC disk or type the following: 


1 TQ 20 
RNID (1) 


Run the program. Record 3 of the random numbers below: 


The Apple uses scientific notation to print numbers with more than nine digits. In the 
number 3.53799262 E-§3, the "E-03" means move the decimal point to the left 3 places: 


3.53799262 E-03 = 0.00353799262 


In the number 1.23456789 E+12, the "E+12" means move the decimal point to the right 12 
places: 


1.23456789 E+12 = 1234567890000 


Run the program again. Record the last random number selected: 


Change line 39 to: 3) LET R = RND (9) 
Run the program at least two times. 


What do you notice? 


a 


Change line 39 to: 30 LET R = RND (-3) 
Run the program at least two times. 


What do you notice? 


Change line 30 to: 3 LET R = RND (4) 
Run the program at least two times. 


What do you notice? 


IV-5 
Better RND Numbers 


The RND function causes the Apple to randomly select a decimal number greater than or 
equal to zero but less than one. To make certain that different random numbers are 
selected each time the program is run, use a number greater than # with the RND function. 
A common practice is to use RND(1) to generate random numbers. 


The random numbers selected by the RND function are a bit awkward in their decimal form. 
Whole numbers may be easier to use. Some additional steps are necessary to make whole 
numbers of the random decimals. LOAD SAMPLE IV-5 from the Intermediate BASIC disk or 
type the following: 


HOME 
PRINT TABC S)"R" TABC 20)°10 *R" TAB( 35) "INT" 


TABC 17)10 * R TAB( 36) INT (10 * R) 


PRINT 
NEXT X 
END 


Lines 5) and 6 in the program above show the steps involved in changing a random decimal 
number to a whole number. ; 


A. Select a random number: R = RND (1) = .712763244 
B. Multiply the random number by If: 1p * R = 7.12763244 


C. Chop off the decimal part: INT (1 * R) = INT (7.12763244) = 7 


Run the program at least two times. 


What is the largest number listed under INT? 


What is the smallest number listed under INT? 


Change these lines: 20 PRINT TAB(5) "R" TAB (20) "100 * R "TAB (35) "INT" 
60 PRINT R TAB (17) 100 * R TAB (36) INT (100 *R) 


Run the program at least two times. 


What is the largest number listed under INT? 
What is the smallest number listed under INT? 


IV-6 
RND 
The steps involved in selecting and Preparing a whole number randomly may be combined in 


one line of the program. LOAD SAMPLE IV-6 from the Intermediate BASIC disk or type the 
following: 


HOME 
SPEED= 150 
FOR X = 1 TO 20 


*Line 49 is the random - 3 
number generator. 4 LET R = INT (100 * RND (1)) 
PRINT "I PICKED: «© & 
NEXT X 
SPEED= 255 
END 


Run the program. 


The smallest number you can get is # and the largest is 99. To get the numbers in the range 
of 1 to 1, change the following line: 


49 LET R = INT ( 19 *-RND (1)) +1 
Run the program at least two times. 
[in general, the random number line may be interpreted as follows, ————SC~*S 
LET R = INT (6 * RND (1))+1 


sees Will produce 6 random numbers starting with 1.... 
1, 2, 3, 4, 5,6 


LET R = INT (11 * RND(1)) +2 
s+e will produce 11 random numbers starting with 2 .... 
2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12 


| 


Change line 49 to produce random numbers in the range of 15 to 4 (155, 16, 17, .00,5 46). 
Record the line you changed in the space below: 


Run the program at least two times. 


IV-7 


RND to Flip a Coin and Drill in Addition 


LOAD SAMPLE IV-7A from the Intermediate BASIC disk or type the following: 
OOOO ——————— eS 


NEW 

10° HOME 

20 LET T = 0: LETH =0 
30 FOR F = 1 TO 10 


40 PRINT "PRESS ANY KEY TO FLIP 
THE COIN .,."#? GET KS 

SO LET C = INT (2° RND (1)) + 4 

60 IF C = 1 THEN 100 

20) RET TS kg 

80 PRINT "TAILS!" 

99 GOTO 120 

100 LETH =H + 1 

110° PRINT "HEaAns!* 

120 NEXT F 

130 PRINT "NUMBER OF TAILS: ‘T 

140) PRINT “NUMBER OF HEADS: 'H 

150 END 


Run the program. 


How many TAILS? How many HEADS? 
Run the program again. 


How many TAILS? How many HEADS? 


a a 
LOAD SAMPLE IV-7B from the Intermediate BASIC disk or type the following: 


10 HOME 

20 FOR F = 1 TO 4 

INT (20 * RND (19) 
INT (10 * RND ¢1)) 
a PY 


we 
a 


eee sp 
= § THEN 110 
"NOPE - TRY AGAIN." 
40 
"CORRECT ! | 18 


UTAB 20: PRINT "PRESS ANY KEY TO GO ON ...°33 GET Ko 


PRINT “THAT IS ALL FOR NOW!!!" 
+ FRINT "TAKE A COFFEE BREAK!!!" 


Run the program. Answer problems correctly and incorrectly. Change lines in the program 


to print 8 multiplication problems with X in the range of | to 9 and Y in the range of | to 
12. Record the lines you changed in the space below: 


Run the program. SAVE MULTIPLICATION 


GOSUB...RETURN 


There are occasions when a series of statements within a Program needs to be used several 
times. Rounding the results of computations, printing the "PRESS ANY KEY TO 
CONTINUE" message to clear the screen, and checking input are examples of statements 
that may be needed several times in one program. GOSUB sends the Apple to a line of the 
Program. The Apple continues to work from that line number and on (the subroutine). When 
a RETURN statement is reached the Apple returns to the line following the GOSUB 
statement. LOAD SAMPLE IV-8 from the Intermediate BASIC disk or type the following: 


10 HOME $ YTAB 10 

20 PRINT "TYPE IN ANY NUMBER. * 

30 PRINT "I’LL DIVIDE IT BY 19 ANTS 

40 PRINT "ROUND THE ANSWER TO THE® 

50 PRINT "NEAREST HUNDREDTH. * 

60 INPUT N 

70 LETX =N/ 19 

80 GOSUB 300 

90 PRINT $ PRINT N* DIVIDED BY 19 = "N / 49 
100 PRINT N / 19" ROUNDED IS *x *,* 

110 GOSUB 400 

120 PRINT ‘TYPE A DOLLAR AND CENTS AMOUNT. * 
130 PRINT ‘I’LL CALCULATE THE SALES Tax* 
140 PRINT "ANI TOTAL COST. DON’T USE a ¢* 
150 INFUT "IN YOUR MONEY AMOUNT. "32 

160 LET X = .04 * 0D 

170 GOSUB 300 

180 PRINT $ PRINT "TAX = $*x 

190 PRINT t PRINT "TOTAL = $*D + x 

200 GOSUB 400 

210 INPUT "AGAIN - Y OR N ? "sas 

220 IF LEFTS (a$-1) = "y*" THE 

230 GOTO 500 ” SHEN WS 


‘ 300 LET X = X + .005 

Lines 30)-340 i * 

The subroutine to S10, LET K =X ¥ 1006 

olnd XS to te | B20 ET X= ONT ex) 
330 LET X = xX / 100 

nearest * 

handcadtti, 340 RETURN 

Lines 406-636 400 VTAB 22 


The ‘subroutine t0 | 419 PRINT “PRESS ANY KEY TO CONTINUE..."9? GET Ke 
clear the screen AZO HOME t YTAB 10 

when a key is | 430 RETURN 

pressed. 


500 HOME 
$10 END 


Run the program. 


Eee 
Lines 300, 319, 320, and 330 may be shortened to one line: 30) LET X = INT ((X + .005) * 100)/100 
*(A line like 230 should be placed before the subroutine section of a program. Without it a 


"RETURN WITHOUT GOSUB" error message will be printed when the "AGAIN" question is 
not answered "Y".) 


OSUB 


The subroutine to be performed May be dependent on the user's input. The ON....GOSUB 
statement will direct the Apple to 


the subroutine the user selects. LOAD SAMPLE IV-9 
from the Intermediate BASIC disk or type the following: 


HOME 
GOTO 130 


LET S# =" 4 
LET A= X.+ ¥ 
RETURN 


Lines a 
The addition subroutine 


Lines 60-3) tlh an 
€ Subtraction subroutine LET X =X + ¥3 LETA=X-Y 
; RETURN 
Line 90 ; 
The multiplication subroutine LET A =X * Y? LET S$ =" x * 3} RETURN 
Line 1) . LET A =X? LET X =A * Y! LETS$ =" / *t RETURN 
The division subroutine 
Line 119 VTAB 23! PRINT "PRESS ANY KEY TO GO ON"3! GET K¢ 
The clear the screen subroutine HOME } RETURN 


VTAB 10 

LET X = INT (16 * RND (i)) 414 
LET Y = INT (10 * RND (1)) #1 
PRINT "WHICH OPERATION! *! PRINT 
HTAB Si PRINT "(i) ADDITION® 

HTAB S? PRINT "(2) SUBTRACTION" 
HTAB Si PRINT "(3) MULTIPLICATION" 
HTAB St PRINT *(4) DLYISION" 


HTAB 5! PRINT "(5) END* 

INFUT "TYPE dy 27 3y 4 OR St "3c 
IF C <1 OR C > 5 THEN 220 

Line 25) means: IF C = 5 THEN 350 
If C= 1 then GOSUB 39 
If C = 2 then GOSUB 6p 
lf C = 3 then GOSUB 90 


If C = 4 then GOSUB 1 


ON C GOSUB 30760907100 


HOME : VTAB 10 

PRINT X#S#eYe* = "3 

INPUT R 

IF & = R THEN 32 

PRINT "NO» THE ANSWER IS? " a 


GOTO 330 

PRINT "THAT IS IT! 1! 1 
GOSUB 110 

GOTO 130 

HOME 

END 


Run the program and try options 1, 2, 3, 4 and 5. 


*(A subroutine can be placed anywhere in a program. With the Apple, a program will run 
faster if the subroutines are placed at the beginning of the program.) 


Iv-10 


The ON...GOTO statement functions much the same as ON...GOSUB. ON...GOTO sends the 
computer to a line where program execution continues. BUT there is no returning to the 
place where control was originally transferred. The following program will count the 
outcomes of a die being rolled 100 times. LOAD SAMPLE IV-10 from the Intermediate 
BASIC disk or type the following: 


HOME 

FLASH ? VTAB 12! HTAB 153 PRINT 
"PLEASE WAIT."? NORMAL. 

VTAB 132 HTAB 42 PRINT "I AM 
ROLLING THE QIE 100 TIMES. * 

FOR R = 1 TO 100 


Line 40: LET D = INT (6 * RND (12) + 4 
If the random number is : ON D GOTO 507607707807907100 
l..the program goes to 

line 50 LET = GOTO 110 

if D is 2, then 60... LET = GOTO 110 

if D is 3, then 79... LET = GOTO 110 

if D is 4, then 80... LET = GOTO 110 


if D is 5, then 99... GOTO 110 
if D is 6, then 109. 
t YTAR ? 
: PRINT "1 WAS ROLLED ‘ni" TIMES." 
"2 WAS ROLLED "D2" TIMES. 


| EE "3 WAS ROLLED 'D3* TIMES." 
(51 4 "4 WAS ROLLED "D4" TIMES,‘ 
t “3S WAS ROLLED "0S" TIMES." 


"6 WAS ROLLED "Dé" TIMES." 


Times in Times in Times in 
1) Rolls 19) Rolls 10) Rolls 


Change lines to have the computer count for 1000 rolls of the die. Run the program. 
Record the results in the table above. 

If the value of the variable in either an ON....<GOSUB or an ON....GOTO statement is 9 or 
greater than the number of lines listed, the ON....GOSUB or ON....GOTO statement is 
skipped and the computer proceeds with the next line of the program. 


250 ON C GOSUB 39, 60, 90 250 ON C GOTO If, 20, 30, 40 
269 PRINT "AN APPLE A DAY." 260 PRINT "APPLES ARE HERE TO STAY." 
If C equals 9 or is greater than 3, If C equals # or is greater than 4, line 269 is 
line 260 will be executed next. executed next. 


Aine _269 Will DE EXECUTE Nee eee ————————————— 
If C is less than 9 or greater than 255 an "ILLEGAL QUANTITY ERROR" message will be 
printed. 


L. 


2 


Activitie: 


Program 1: INT for listing factors 


LOAD SAMPLE IV-2 from page IV-2. 


Modify the program to print the factors of a number by adding a FOR NEXT loop that 


will: 


A. Divide the INPUT number by each whole number from 2 through % the number 


(FOR D = 2 TO N/2). 


B. Check the INPUT number to see if it is divisible by each of the whole numbers. 
C. If the INPUT number is not divisible by the whole number, go to the next whole 


number, 


D. If the INPUT number is divisible by the whole number, then print the whole 


number (it is a factor). 


The output should look like the following: 


4 
< 
3 
m 


The loop finds 
these factors. 


fH OAD ONE 
4H 
wo 


A prime number only has factors of | and itself. (5 is prime because its factors are | 
and 5.) Run the program using the numbers listed below. Circle the numbers that are 


prime. 
7 Io 33 Sf St 57 1009 


SAVF. FACTOR 


DDPDDDD D> 


AGAIN - Y OR 


NUMBER 


FACTOR 
FACTOR 
FACTOR 
FACTOR 
FACTOR 
FACTOR 


1107 


36 


OF 


NF 


1999 


OF 3 


36. 


A FACTOR OF 36. 
¢ R OF 
A FACTOR 


2003 


Activities 


Program 2: INT to round numbers 
1. LOAD SAMPLE IV-3 from the Intermediate BASIC disk. 


2s Modify the program to round a number to the nearest whole number answer (194.73 
would be rounded to 195). 


3. Record how the Apple rounds each of the following: 
3.6 M1 589 74.05 74.5 


Program 3: 
1. LOAD MULTIPLICATION from page IV-7. 


Zi Modify the program to ask the user the number of problems they would like. Record 
the lines you add and change in the space below: 


3. Change the program to print the correct answer when the problem is answered 
incorrectly. Record the lines you change in the space below: ie 


4, Add a score-keeping counter to count the number of problems the user answers 
correctly. Have the number correct printed at the end. Record the lines you add 
in the space below: 


5. | Modify the program to ask the user the largest numbers they will get for factors in the 
multiplication problems. Record the lines you add and change in the space below: 


6. SAVE MULTIPLICATION DRILL = 


Iv-13 
Activities 


Program 4: RND for a number guessing game 


1. Write a program for a number guessing game. The computer will randomly select 
(BUT NOT PRINT!) a number from | to 100. The user must input a guess. The 
computer will print "TOO HIGH" or "TOO LOW" and allow the user another guess or 
print "YOU GOT IT". Use the flow chart below: 


Describe the number 
guessing program. 


Computer picks a 
random number 1-100. 


than the 
random 
number? 


Is the 
guess smaller 
than the 
random 
number? 


Print 
"TOO LOW" 


Print 
"YOU GOT ITH" 


2. Run the program and SAVE NUMBER GUESS 


Activities 


Program 5:_GOSUB....RETURN 


1. | LOAD PROGRAM IV-5 from the Intermediate BASIC disk or type the following: 


HOME 
120 PRINT "THIS FROGRAM WILL CALCULATE" 
130 PRINT "THE CIRCUMFERENCE AND AREA* 

140 PRINT "OF CIRCLES GIVEN THE DIAMETER." 
150 PRINT 

160 INPUT "WHAT IS THE DIAMETER? "3D 

170 LETR=D/2 

180 INPUT “UNIT OF MEASURE? "7US 


190 LET P = 3.1416 
200 LETC =PxOD 
210 LETA=PXRX¥R 


220 PRINT "CIRCUMFERENCE = "C * * US 
230 PRINT "AREA = ".A " SQUARE " Us 


240 PRINT 

250 INPUT "AGAIN - Y OR N? "FAS 
260 IF LEFT$ (A%s1) = "¥" THEN 110 
270 HOME 


END 


gs Run the program. Use the following measurements and record your results below: 


a 
a a 
anes 
a 


3. Add a subroutine before line 11 to round decimals to tenths. Use the subroutine to 
round the circumference and area to tenths before printing the values. Record the 
lines added in the space below: 


4. Run the program using the same measurements as in the table above. Compare your 
rounded results to the first results. 


Program 6: ON....GOSUB 


1. 
2. 


LOAD SAMPLE IV-9 from page IV-9, 


Add and change lines to make the "THAT IS ITI!H!" message one of four random 
messages. 


Line 32 should generate a random number | to 4. 


Line 325 should be an ON....GOSUB statement that will branch to a subroutine that 
will print: 


esee" THAT IS ITH", if the random number is 1. 
aoe WAY TO GO!", if the random number is 2. 
sees" YOU GOT IT!", if the random number is 3. 
or «WHAT A HUMAN CALCULATOR YOU ARE!", if the random number is 4. 


Four subroutines must be added to print the four different messages. Complete the 
statements using the line numbers below: 


320 LET W= 
325 ONWGOSUB__,_,__, 


121 PRINT "THAT IS ITI" 
122 RETURN 


123 
124 RETURN 


125 
126 RETURN 


127 
128 RETURN 


Type in the changes and additions and RUN the program. 


SAVE (any name you wish! ) 


IV-16 


Activities 


Program 7: ON....GOTO 


15 Write a program similar to SAMPLE IV-10 on page IV-10. Use an ON....GOTO 
statement and count the totals that come up in one hundred rolls of a pair of dice. 
Write your program in the space below: 


2. Type in and run your program. Record on the chart below the number of times each 
total came up: 


3. Compare your results with someone else. If you were a betting person what total 
would you bet on? 


TEACHER NOTES 


Creating a Demonstration Diskette 


The emphasis in the Intermediate units is to modify and’ enhance sample programs using 
new commands, then explore and analyze the effects of the changes. To aid this 
Process, it is suggested that the trainer prepare a demonstration diskette to be used 
with these materials. The diskette should include copies of all sample and activity 
programs referenced in the units. Save the programs on the diskette using the same 
program names found in the units. 


The diskette would aid both the trainer and participants by reducing the amount of 
time needed to enter and run programs. The diskette would be especially useful when 
participants’ hands-on computer time is limited. 


Suggested solutions to the activities might be placed on a separate diskette. 


T-2 
UNIT I - Suggested Solutions 
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Answer these questions: 
+ Is the HELLO program locked? _ NO 
+» How many sectors does the HELLO program occupy? 2 sectors 


+ How many sectors are remaining for storing other programs and files on your 
disk? 494 (560 total - 64 for DOS and the directory - 2 for the HELLO program = 494) 


+ What type of file is the HELLO program? Applesoft 


Type the following. Press RETURN 
after each line. 


Record what happens below. 


The HELLO program is listed on the screen. 


NEW [The HELLO program is cleared from memory. 

(A copy of the HELLO program is still stored on disk.) 
Nothing is listed since NEW cleared memory 
lof any existing program. 


LIST 


Nothing is run since there is no program in memory, 
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Ze 


4, 


(PROGRAM I-1 on the Intermediate BASIC disk.) 
RUN JOHN 


Using the semicolon in a PRINT statement causes items to be printed right after each 
other with no spaces between. 


(SOLUTION I-1A on the Intermediate BASIC disk.) 


LST S REM THIS IS A SAMPLE PROGRAM 
12 HOME 
2@ PRINT "MARY", “JOHN, "BILL" 
3Q@ PRINT (1 + 3) Azo 
4Q@ PRINT "ANDY", 
SQ PRINT "CAROL", 
6@ PRINT “HELLO" 
END 
RUN 


Using the comma in a PRINT statement causes items to be printed in one of three tab 
fields of the screen. The first tab field is columns 1 through 16. The second tab field 
is columns 17 through 32. The third tab field is columns 33 through 40. ANDY is 
printed starting in column 1, CAROL in column 17 and HELLO in column 33. 


(SOLUTION I-1B on the Intermediate BASIC disk.) 
—— 

Rey MARY JOHN BILL 

16 

ANDY CAROL HELLO 

HELLO 

HELLO 

HELLO 

HELLO 

HELLO 

HELLO 

HELLO 

HELLO 

HELLO 


SREAK IN &@ 


SS EEE | 
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UNIT I - Suggested Solutions 


2 (PROGRAM I-2 on the Intermediate BASIC disk.) 


RUN 


3. | (SOLUTION I-2A on the Intermediate BASIC disk.) 


LIST 


RUN 


19 HOME 
A=4 
B=5 


4Q LETC =A+B 


S@ PRINT C 

6@ PRODUCT =A* B 
7@ PRINT PRODUCT 
s@ END 


Omitting the word LET does not change the output. 


4, | (SOLUTION I-2B on the Intermediate BASIC disk.) 


LIST 


RUN 


1@ HOME 
2asa 
SOB=HS5 


40 LETC =A+B8B 
5@ PRINT C 

6@ PRODUCT =A*B 
7@ PRINT PRICE 
sQ@ END 


i) 


There are no changes in the output. 
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2. (PROGRAM I-3 on the Intermediate BASIC disk.) 


RUN 


NNN 


3.. (SOLUTION I-3 on the Intermediate BASIC disk.) 


LIST 


RUN 


3 
@ 
is 
7 
4 


PRINT C 
PRINT CA 
PRINT CAB 
PRINT CAD 
4 
PRINT CAC 


The last value printed is 4 rather than 7. 
Line 36 changes the value of CA from7 to 4. 
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2s 


3. 


UNIT I - Suggested Solutions 


(PROGRAM I-4 on the Intermediate BASIC disk.) 
RUN (Input from the keyboard is underlined.) 


WHAT IS YOUR NAME ?NORMAN 


HI, NORMAN. 
THIS IS YOUR LUCKY DAY, NORMAN. 


(SOLUTION I-4A on the Intermediate BASIC disk.) 
LIST 
1@ HOME 

2 INPUT “WHAT IS YOUR NAME"; Bs 

4@ PRINT “HI, "“sBs"," 

5@ LET C$ = "THIS IS YOUR LUCKY DAY, " 
62 PRINT C#3Bs", 

70 END 


RUN (Input from the keyboard is underlined.) 


WHAT IS YOUR NAMENORMAN 


HI, NORMAN. 
THIS IS YOUR LUCKY DAY: NORMAN. 


Ee 


There is no question mark following WHAT IS YOUR NAME. 


(SOLUTION I-4B on the Intermediate BASIC disk.) 
To make the question mark appear, change line 20 as follows: 


20 INPUT "WHAT IS YOUR NAME? "; BS 


RUN (Input from the keyboard is underlined.) 


WHAT IS YOUR NAME? NORMGN 
HI, NORMAN, 


THIS IS YOUR LUCKY DAY, NORMAN, 


T-6 


2. 


(SOLUTION I-5A on the Intermediate BASIC disk.) 


LIST, 


RUN 
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UNIT I - Suggested Solutions 
Page I-15: Acitivity Program 5 


(PROGRAM I-5 on the Intermediate BASIC disk.) 
RUN (Input from the keyboard is underlined.) 


TYPE @ TO HAVE 
TYPE A NUMBER: 1 
TYPE @ TO HAVE THE 
TYPE A NUMBER: 2. 
TYPE @ TO HAVE THE 
TYPE A NUMBER: = 
TYPE @ TO HAVE THE 
TYPE A NUMBER: 4 
TYPE @ TO HAVE THE 
TYPE A NUMBER: @ 
TOTAL = 10 


i1@ HOME 

20 LET T=2@ 

2Q@ PRINT “TYPE @ 
4@ INPUT "TYPE A 
S@ IF N = @ GOTO 
60 LET T=T+N 
70 GOTO 2a 


6@ PRINT “TOTAL = “T 


3@ END 

(Input from the keyboard is underlined.) 
TYPE @ TO HAVE THE 
TYPE A NUMBER: i 
TYPE @ TO HAVE THE 
TYPE A NUMBER: 2° 
TYPE @ TO HAVE THE 
TYPE A NUMBER: 3 
TYPE @ TO HAVE THE 
TYPE A NUMBER: 4 
TYPE @ TO HAVE THE 
TYPE A NUMBER: @- 


TOTAL = 1a 


a | 


TOTAL PRINTED. 
TOTAL PRINTED. 
TOTAL PRINTED. 
TOTAL PRINTED. 
TOTAL PRINTED. 


TO HAVE THE TOTAL PRINTED. " 
NUMBER: "5N 
14) 


TOTAL PRINTED. 
TOTAL PRINTED. 
TOTAL PRINTED. 
TOTAL PRINTED. 


TOTAL PRINTED. 


There are no differences in the run of the program. 


(SOLUTION I-5B on the Intermediate BASIC disk.) 
Change the following lines to make -1 the number to type to have the total printed: 


LIST 


39 PRINT "TYPE -1 TO HAVE THE TOTAL PRINTED." 


50 IF N = -1 THEN 


HOME 

LET FT =. 
PRINT “TYPE 
INPUT "TYPE 


£ND 


80 


ee eT i THE TOTAL SPRINTED.” 
A NUMBER: tis 
THEN 8@ 


N 
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RUN (Input from the keyboard is underlined.) 


TYPE -1 TO HAVE THE TOTAL PRINTED. 
TYPE A NUMBER: 1 

TYPE -1 TO HAVE THE TOTAL PRINTED. 
TYPE A NUMBER: 2 

TYPE -1 TO HAVE THE TOTAL PRINTED. 
TYPE A NUMBER: 3 

TYPE -1 TO HAVE THE TOTAL PRINTED. 
TYPE A NUMBER: 4 

TYPE -1 TO HAVE THE TOTAL PRINTED. 
TYPE A NUMBER: @ 

TYPE -1 TO HAVE THE TOTAL PRINTED. 
TYPE A NUMBER: 5 

TYPE -1 TO HAVE THE TOTAL PRINTED. 
TYPE A NUMBER: <1 

TOTAL = 15 


5. | (SOLUTION I-5C on the Intermediate BASIC disk.) 
Add lines similar to the following to count the numbers and print the average: 


25 LET C=0 

65LETC=C+1 

85 PRINT "COUNT = "C oo 
87 PRINT "AVERAGE = "T/C 


HOME 
28 LET Td 

25 LET Ee = 68 

3Q@ PRINT "TYPE -1 TO HAVE THE TOTAL PRINTED. " 
6Q INPUT "TYPE A NUMBER: "$s 


LIST 


S@ IF N= - 1 THEN & 
60 LET T=T+N 

65 LET C = += 2 

7@ GOTO 3 


8@ PRINT "TOTAL = “T 
BS PRINT “COUNT = "C 
PRINT “AVERAGE = "T/C 
END 


RUN (Input from the keyboard is underlined.) 


TYPE -1 TO HAVE THE TOTAL PRINTED. 
TYPE A NUMBER? 1 
TYPE -1 TO HAVE THE TOTAL PRINTED. 
TYPE A NUMBER: 
TYPE -1 TO HAVE 
TYPE A NUMBER: 
“1 TO HAVE 
E A NUMBER: 
Sst TO FAVE: Fi 
A NUMBER: 
= 14 
4 


TOTAL PRINTED. 


TOTAL PRINTED. 


TOTAL PRINTED. 


Page I-16: Activity Program 6 


2. 


4, 


UNIT I - Suggested Solutions 


(PROGRAM (‘1-6 on the Intermediate BASIC disk.) 


RUN 


bo] & 
ANN ANDY 


(SOLUTION I-6A on the Intermediate BASIC disk.) 


LIST 


RUN 


eee re ee 
1Q@ HOME 

22 READ A,B 

30 PRINT AB 

4@ READ Cs, DS 

S@ PRINT C#,D% 

62 DATA 5,6: "ANN", "ANDY" 


5 & 
ANN ANDY 
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Using quotation marks with string values in DATA statements did not change the 


output. 


(SOLUTION I-6B on the Intermediate BASIC disk.) 


LIST: 


RUN 


1Q@ HOME 

20 READ A,B 

3Q PRINT AB 

40 READ C#,Ds 

5S@ PRINT Cs, De 

62 DATA 5,6,ST. PAUL, MN, HUNTLEY, MN 
7@ END 


5 5 
ST. PAUL MN 


The READ command takes an element from the DATA. The Apple uses commas to 
separate items in the DATA statements. In line 40, ST. PAUL is read into C$ and MN 
is read into DS. 
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(SOLUTION I-6C on the Intermediate BASIC disk.) 


LIST 
10 HOME 
22 READ A,B 
3@ PRINT A,B 
4@ READ C$, Ds 
S@ PRINT C$, D¢ 
5@ DATA 5,6, "ST. PAUL; MN", “HUNTLEY, MN« 
7@ END 
RUN 5 5 
ST. PAUL; MN HUNTLEY, MN 


When a quotation mark is the first character of a string DATA element the Apple 
reads all characters that follow until the closing quotation mark. Commas between 
the quotation marks are included as part of the string. In line 49 the Apple reads ST. 
PAUL, MN into C$ and HUNTLEY, MN into DS. 
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2. (PROGRAM I-7 on the Intermediate BASIC disk.) 


RUN 
cc 
NUMBER 


NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 


WONMTUPUeES 


rinrnunrdknnrnnnna 


Be 
hie @ 
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3. (SOLUTION I-7A on the Intermediate BASIC disk.) 


LIST 
10 HOME 
3Q PRINT “NUMBER 
49 NEXT NUMBER 
END 
RUN NUMBER = @ 


NUMBER 


NUMBER = 4 
NUMBER = & 
NUMBER = & 
NUMBER = 12 
NUMBER = 12 


2@ FOR NUMBER = @ TO 12 STEP 3 


= “NUMBER 


The value of NUMBER is increased by 2 each time through the loop. Only even 


numbers #) through 12 are printed. 


(SOLUTION I-7B on the Intermediate BASIC disk.) 


LIST 


HOME 


3Q PRINT “NUMBER 
4Q NEXT NUMBER 
SI END 


RUN 


NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 
NUMBER 


inn naw 


2@ FOR NUMBER = 12 TO @ STEP - 1 


= “NUMBER 


Each time through the loop, | is subtracted from the value of NUMBER. The Apple 


counts down from 12 to %. 
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(PROGRAM I-8 on the Intermediate BASIC disk.) 


2. 


4, 


RUN 


THIS IS AS SLOW AS I CAN GO. BrintediarSBEED 10 


SPEED 150 'S NICE FOR READING. 
THIS IS NORMAL SPEED. 


Printed at SPEED = 150 


Printed at SPEED = 255 


(SOLUTION I-8 on the Intermediate BASIC disk.) 


LIST 


RUN 


= HOME 

5S SPEED= @ 

7 INVERSE 

1@ PRINT “THIS IS AS SLOW AS I CAN GO." 
15 NORMAL 

2 SPEED= 150 

a PRINT “SPEED 15@ IS NICE FOR READING. " 
40 SPEED= 255 

45 FLASH 

S@ PRINT "THIS IS NORMAL SPEED. " 

SS NORMAL 

&@ END 


This line appears as black 
characters on a white back- 
ground (INVERSE). 


THIS TS AS SLOW AS 7 CAN GO. 
SPEED 158 IS NICE FOR READING. 
THIS IS NORMAL SPEED. 


This line is printed as white 
on a black background. 


This line is flashing on the 
screen, 
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ae (SAMPLE II-1C on the Intermediate BASIC disk.) 
To print cubes of the numbers |1 through 2, change these lines: 
20 PRINT "NUMBER", " CUBE” 


50 FOR N = 11 TO 2p 
69 PRINT N, N*N*N 


LIST 
1@ HOME 
20 PRINT “NUMBER"," CUBE " 
3Q@ PRINT "“------— ys 
4Q PRINT 


S@ FOR N = ii TO 20 
6@ PRINT NiN * N * N 


9@ NEXT N 
1@@ PRINT “I AM FINISHED LOOPING!" 
110 END 


NUMBER 


RUN 


3. (SAMPLE II-1D on the Intermediate BASIC disk.) 


LIST 
10 HOME 
20 PRINT 
32 PRINT 
42 PRINT 
SQ FOR N = 2 TO 20 STEP 2 


6@ PRINT NiN * N * N 

9@ NEXT N 

1@Q PRINT "I AM FINISHED LOOPING! " 
11@ END 


T=14 
UNIT II - Suggested Solutions 


Page Il-1 (continued) 
RUN 


2 e000 
TAM FINISHED LOOPING! 


4, | (SAMPLE II-1E on the Intermediate BASIC disk.) 


LIST 
12 HOME 
29 PRINT "NUMBER"," CUBE " 
30 PRINT "---——— iar peomecciote _ 
42 PRINT “« 
5Q@ FORN=1i18T0@STEP -1 
6@ PRINT N,N * N &N 
90 NEXT N 
1@Q PRINT “I AM FINISHED LOOPING!" 
112 END 
RUN 


NUMBER 


g 


we ha ON wo 


AM FINISHED LOOPING! 


UNIT Il - Suggested Solutions 
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Make these changes: 


99 NEXT B 
11 NEXT R 


What happens? The Apple "beeps" and prints the message "? NEXT WITHOUT FOR ERROR 
IN 119." 


Why? The B loop and the R loop cross. The Apple completes the B loop and looks outside 
the body of the B loop for a FOR statement to go with the NEXT R inline 119. 

(SAMPLE II-3A on the Intermediate BASIC disk.) 

To make the Apple repeat drawing the three blocks two times, add the following lines: 


35 FOR T=1TO2 
115 NEXT T 


LIST RUN 


HOME THIS WILL PRINT 3 BLOCKS 
SPEED= 175 WITH 2 ROWS OF 4 STARS. 
PRINT "THIS WILL PRINT 3 BLOCKS" 
PRINT "WITH 2 ROWS OF 4 STARS. " BLOCK #1 
FORT =1702 eka 
PRINT ceed 
5@ FORE =i TO 
6Q2 PRINT “BLOCK #"B BLOCK #2 
72 FORR=1i1TO2 soot 
5a PRINT  "otatacse: ao 
90 NEXT R 
180 PRINT BLOCK #5 
110 NEXT B seh 
115 NEXT T ed 
119 SPEED= 255 
END 
BLOCK #1 


oh 
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(SAMPLE II-4 on the Intermediate BASIC disk.) 
Change the following line to make the program loop 5 times: 


50 FOR S=1 TOS 


What message does the Apple give you? ? OUT OF DATA ERROR IN 60 


UNIT II - Suggested Solutions 
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(SAMPLE II-5A on the Intermediate BASIC disk.) 


LIST rr 


S SPEED= i150 

1@ HOME 

2 PRINT “PROGRAM TO AVERAGE" 
3 PRINT "PTS. ON 3 TESTS." 
40 FORS =1704 

5S@ READ NS, A,B,C 

62 LET T=A+B+E 

70 PRINT 
8@ PRINT 2 UN 

3@ PRINT “TOTAL: "“T,"QVERAGE: "T 7 = 
100 NEXT S 

110 PRINT 

120 PRINT “TEST SCORES" 

150 FOR X=1 704 

14@ READ N$,A,B,C. 

150 PRINT "NAME: "NS 

16@ PRINT "A=", “B="B, "C="C 

17@ PRINT 

16@ NEXT Xx 

199 SPEED= 255 

202 END 

S@Q@ DATA JO,9,8,10,MARIEN, 93,18,1a 
S5i@ DATA ERNIE, S, 7,9, ALICE, 19.3.5 


Run the program. 


What message do you get? ? OUT OF DATA ERROR IN 149 


(POINTS on the Intermediate BASIC disk.) 


LIST S SPEED= 159 
10 HOME 


2Q PRINT "PROGRAM TO AVERAGE" 
3Q PRINT "PTS. ON 3 TESTS." 
40 FORS =1704 


8a 

723 = 

8Q PRINT "NAME "NS 

2@ PRINT “TOTAL: “T, "AVERAGE: "T / = 
NEXT S 
RESTORE 
PRINT 


PRINT “TEST SCORES" 
FOR X =1 704 
READ NS, A,B,C 

tS PRINT "NAME: "NS 


"Q="9, "Bate, "Canc 


UNIT II - Suggested Solutions 


Page II-6 (continued) 


RUN 


PROGRAM TO AVERAGE 
PTS. ON 2 TESTS. 
me: 
NAME: JO 
TOTAL: 27 
Saeeeesssssese=: 
NAME: MARIEN 
TOTAL: 29 AVERAG! 
Smessesesses====s==: 
NAME: ERNIE : 
TOTAL? 21 AVERAGE: 7 
SS asesss: =m 
NAME: ALICE 

TOTAL: 16 AVERAGE: §& 


TEST SCORES 
NAME: JO 
A=9 


NAME: 
a=9 


MARIEN 


NAME: ERNIE 
a=5 B=7 


NAME? ALICE 
A=10 =F 


Page II-7 


What is the ending balance? $695.17 
Is the ending balance $350 more? Yes. It is $1045.17. 
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L. 


2. 


UNIT Il - Suggested Solutions 


(SOLUTION II-1A on the Intermediate BASIC disk.) 


LIST 


1703 


"XXXXX" 
=i17T04 


ny yu 


PRINT "XXXXX" 
NEXT A 
END 


(SOLUTION II-1B on the Intermediate BASIC disk.) 


LIST i 


3 
40 
5@ 
62 
72 
14) 


HOME 

PRINT 

PRINT "XXXXX"3 "XXXXX") "XXXKX" 
FOR B= i170 12 

PRINT "X xX", 

NEXT 5 

PRINT "XXXXX"s "XXXXX") "XXXXK" 


180 END 


OR .... (SOLUTION II-1C on the Intermediate BASIC disk.) 


LIST 


HOME 
FOR A = 170 3- 
PRINT “XXXXX"y 
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(PROGRAM Il-2 on the Intermediate BASIC disk.) 


2. 


3. 


RUN 


THE PRODUCT OF THE NUMBERS 
FROM 1 70 5 IS 


THE PRODUCT OF THE NUMBERS 


FROM 1 TO S IS 40320. 


THE PRODUCT OF THE NUMBERS 
FROM 1 TO 12 IS 479001600. 
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Change the following lines to produce the sum of the numbers rather than the product: 


Change the following lines to produce the sums of the numbers | to 1p, 
50 and | to 50: 


4O LET P= 
69LETP=P+N 
80 PRINT "THE SUM OF THE NUMBERS" 


20FOR T=1-TO4 
120 DATA 19, 190, 50 500 


(SOLUTION II-2A on the Intermediate BASIC disk.) 


LIST 


RUN 


HOME 


FOR T=17T704 
READ R 
LET P = @ 
FORN=170R 
LET P = P+N 
NEXT N 


PRINT "THE SUM OF THE NUMBERS" 
PRINT "FROM 1 TO "R" 2g "PN, 


PRINT 

NEXT T 

DATA 10, 190,58, 5a0 
END 


THE SUM OF THE NUMBERS 
FROM 1 TO 10 [S 55. 


THE SUM OF THE NUMBERS 
FROM 1 TO 1@@ IS 55a. 


THE SUM OF THE NU 
FROM 1 TO S@ [tS 


THE SUM OF THE NUMBERS 
FROM 1 TO 50 IS ia 


eee [ae] 


[5050 | 
Lito smo | 1252650 | 


1 to 190, 1 to 
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UNIT II - Suggested Solutions 


6. (SOLUTION II-2B on the Intermediate BASIC disk.) 


— 
ne 1@ HOME 

20 FOR T = 1 TO 2 

30 READ R 

42 LET P =2 

S@ FORN=1TOR 

62 LET P=P+N 

70 NEXT N 

S@ PRINT “THE SUM OF THE NUMBERS" 

99: PRINT “FRGEM) 2 Ta RY Terps 

1@Q@ PRINT 

110 NEXT T 

120 DATA 1008, 10200 


***NOTE: Be patient! It takes the Apple about | minute to print the sums. 


RUN 
THE 
FROM 


THE 
FROM 


130 END 


SUM OF THE NUMBERS 
1 TO 1988 IS Sa05a0. 


SUM OF THE NUMBERS 
1 TO 1@@@@ is Sageasaae. 


[iro [| 800500 
[to 1pm [80005000 
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2. (SOLUTION II-3 on the Intermediate BASIC disk.) 


LIST 5 SPEED= 150 
; 12 HOME 
(Lines 2@ PRINT "PROGRAM TO AVERAGE” 
changed =Q PRINT "PTS. ON 3 TESTS." 
are *40 FORS =1705 
starred.) SQ READ NSA: B,C 
6@ LETT=A+B+C 
70 PRINT "s====: 
SQ PRINT "NAME: "NS 
9@ PRINT “TOTAL: "T, "AVERAGE: "T / 3 
12 NEXT S 
195 RESTORE 
118 PRINT 
120 PRINT "TEST SCORES" 
%130 FOR X =1 705 
140 READ NS,A,B,C 
15Q PRINT "NAME: "Ns 
160 PRINT “@="0,"B="B, "C="C 
179 PRINT 
18@ NEXT x 
19@ SPEED= 255 
29a END 
%500 DATA HILDA,7,12,15 
¥512 DATA BART. 
¥520 DATA JENNY 2 
¥550 DATA ARTHUR, 15,15.15 
%540 DATA MARTHA, 14,18,15 
RUN 
PROGRAM TO AVERAGE a Sh a | ee eae cara 
NAME: JENNY 
A=12 B=12 c=is 
AVERAGE: i1.: NAME: GRTHUR 
a Asis penis goim 
NAME? MARTHA 
A=14 3=10 cats 


TOTAL: 39 AVERAGE: iF 
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1. (CHECKBOOK on the Intermediate BASIC disk.) 


LIST 19 HOME 


2@ PRINT "THIS IS A CHECKBOOK BALANCING PROGRAM" 


(Lines added BQ PRINT "Cd <> 6) €) <9 0d dD OD OPO OD 
are starred.) 4@ REM 4m: BALANCE 
50 READ B 


6@ PRINT “BEGINNING BALANCE = $"B 
7Q REM +4: DEPOSITS aot 
8@ READ D 
90 IF D = @ THEN is 
100 LETB=B+D 
11@ GOTO s@ 
120 REM tee: CHECKS oe 
130 READ C 
14@ IF C = @ THEN 178 
13@ LET B= Bb =—€ 
16@ GOTO 130 
17@ PRINT “ENDING BALANCE = s"B 
* 180 RESTORE 
READ B 
READ D 
IF D = @ THEN 240 
PRINT “DEPOSIT = $"D 
GOTO 200 
READ C 
IF C = 8 THEN 250 
PRINT “CHECK = $"C 
GOTO 240 
END 
DATA 593.85 
DATA 278.@4,12,0 
DATA 9,41.65, 7,50, 12. 92,57. 77,11. 26,0 


RUN 


THIS iS A CHECKBOOK BALANCING PROGRAM 
YOO OOOODOAMDOOOO MM OO OOO 
BEGINNING BALANCE = $592.82 

ENDING BALSNCE = $695.17 

DEPOSIT = $278.94 

DEPOSIT = $12 


CHECK = $9 
CHECK = $41.65 
CHECK = $7 
CHECK = $59 
CHECK = $12.02 
$57.77 


UNIT II - Suggested Solutions 
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2. (PROGRAM II-5 on the Intermediate BASIC disk.) 


RUN 


3. (SOLUTION II-5A on the Intermediate BASIC disk.) 


(Lines 
added 
are 
starred.) 


PLAYER 

SCORES=159 148 
TOTAL= 517 AVERAGE= 
SCORES=155 145 
TOTAL= 465 AVERAGE= 
GRAND TOTAL = 982 


NUMBER OF GAMES = 
OVERALL AVERAGE 


PLAYER: JO 

SCORES=172 130 

TOTAL= 4a@ AVERAGE= 
SCORES=140 16a 

TOTAL= 4&0 AVERAGE= 155. ° 


GRAND TOTAL = SE@ 
NUMBER OF GAMES = & 
14. 


HOME ‘ 
LET L$ = “meeessssssseesseeessssenseessssssss==" 
PRINT “we ALLEY CATS BOWLING TEAM some" 

PRINT LS 

FOR P= 1702 
LET GT = a: LET NG =@ 


RUN 


READ N$ fmm ALLEY CATS BOWLING TEAM ma 
PRINT "PLAYER? “NS sueeqesssaccnecsseseneenenessacssones 
READ Gi,G2,GS PLAYER: MARY 

LET T = Gi + G2 + GS SCORES=150 148 219 
LET GT = GT +7 TOTAL= S17 AVERAGE= 172. 333355 
LET NG = NG + 3 SCORES=155, 145 165 
PRINT "SCORES="G1, G2, G3 TOTAL= 4eS AVERAGE= 155 

PRINT "TOTAL= “T, "AVERAGE= "T / 5 SCORES=188 200 175 
READ F TOTAL= SEZ AVERAGE= 197, GES557 
IF F = =~ 1 THEN 90 GRAND TOTAL = 1545 

PRINT "GRAND TOTAL = "GT 


NUMBER OF GAMES = 9 


PRINT "NUMBER OF GAMES = "NG OVERALL AVERAGE = 171. 666667 

PRINT "OVERALL AVERAGE = "GT / NG Sueaensaeeseennanessesssenessemsessae 
PRINT LS PLAYER: JO 

NEXT P SCORES=170 130 100 
END TOTAL= 420 AVERAGE= 133. SS3Iz 
DATA MARY SCORES= 140 168 16 
DATA 150, 148, 219 TOTAL= 460 AVERAGE= 153, 32555 
DATA =1 SCORES=155 130 177 
DATA 155; 14S, 165 TOTAL= 462 AVERAGE= 154 

DATA =1 GRAND TOTAL = iz22 

DATA 188, 208.175 NUMBER OF GAMES = 9 

DATA -2 OVERALL AVERAGE = 146, esese9 

DATA JO Sa SES ae ses ese eeE sess e lessees ses=== 
DATA 172: 132; 120 

DATA =1 

DATA 148, 162) 160 

DATA 1 

DATA 


DATA 


155) 15; 177 
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Page II-12: Activity Program 5 (continued) 


4. 


(SOLUTION II-5B on the Intermediate BASIC disk.) 


HOME, 
LIST 20 LET LS © “ecsuusceaccesssnsscssssssecssuaseuee! 
3@ PRINT “wwe ALLEY CATS BOWLING TEAM mm 
4@ PRINT Ls 
(Lines j#S@ FORP = 1704 
6@ LET GT =a: LET NG = 
added 70 READ NS 
and 8Q PRINT “PLAYER: “NS 
changed | 9@ READ G1,G2,G5 
are 100 LET T = Gl + G2 + G3 
11@ CET GT = GT + T 
starred.) | 12a CET NG = NG +3 
13@ PRINT "SCORES="G1, 62,6 
14@ PRINT “TOTAL= “Ty "AVERAGES “T / 3 
1S5@ READ F 
160 IF F = -1 THEN 90 
17@ PRINT "GRAND TOTAL = “GT 
160 PRINT “NUMBER OF GAMES = "NG 
190 PRINT “OVERALL AVERAGE = "GT / NG 
20@ PRINT Ls 
210 NEXT P 
3a END 
1@@@ DATA MARY 
{@@1 DATA 1S. 149,219 sm ALLEY CATS BOWLING TEAM smu 
10@2 DATA -1 paella acnanenenibnneeh ee 
1@@E DATA 15S. 145, 165 PLAYER: MARY 
1e@a DATA -1 SCORES=150 148 219 
1@@5 DATA 188, 200,175 TOTAL= S17 AVERAGE= 172. 535323 
1@@6 DATA -2 SCORES=i55 145 165 
2oa@ DATA JO TOTAL= 46S AVERAGE= 155 
20@1 DATA 172 152,100 SCORES=188 200 175 
2a@z DATA -1 TOTAL= S63 AVERAGE= 187. 656667 
39@3 DATA 142, 16a, 160 GRAND TOTAL = 1S45 
204 DATA -1 NUMBER OF GAMES = 9 
2005 DATA 155,152,177 OVERALL AVERAGE = 171. S65667 
2006 DATA -2 blotch isibtesenlininisiubtntsiohen ue 
JAN PLAYER: JO 
180, 165, 140 SCORES=170 130 100 
ot TOTAL= 4aa AVERAGE® 153. S3SIIS 
13S, 144,122 SCORES=142 168 163 
1 TOTAL= 46a AVERAGES 153. S3SITS 
15Q, 149, 150 SCORES=155 130 177 
-2 TOTAL= 462 AVERAGE= 154 
pou GRAND TOTAL = 1322 
179) 164, 139 NUMBER OF GAMES = 9 
1 OVERALL AVERAGE = 146. ae88s9 
154s 145, 150 qqasnasaasancanscascassessunsessscans 
ot PLAYER: JAN 
201, 180, 500 SCORES=180 165 140 
“2 TOTAL= 485 AVERAGES 161. 666667 
SCORES=133 144 122 
TOTAL= 339 AVERAGE= 133 
SCORES@=150 140 150 
TOTAL= 44a AVERAGE= 146, 566667 


GRAND TOTAL = 1224 
NUMBER OF GAMES = 9 
OVERALL AVERAGE = 147,111111 


PLAYER: DOUG 

SCORES=179 164 139 
TOTAL= 482 AVERAGE] 160. GEGE67 
SCORES=124 145 150 
TOTAL= 429 AVERAGE= 147 
SCORES=221 180 20 
TOTAL= 681 AVERAGE= 227 


GRAND TOTAL = 1592 
NUMBER OF GAMES = 9 
OVERALL AVERAGE = 176. Se8es9 


saeeasemmnseessesssssessmaasssssssss= 
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Change these lines in SAMPLE III-5: 


30 GET T 
50 PRINT "YOU PRESSED: "T 


Run the program and press a letter key. 


What happens? The Apple "beeps" and prints the message ? SYNTAX ERROR. 


Page III-7 


When trying to input a string longer than 255 characters, the following happens: 
The Apple "beeps" when the 249th character is typed. 
The Apple continues to beep each time an additional character is typed. 


When the 256th character is typed the Apple prints a "\\" and forgets everything you 
have just typed. 


When RETURN is pressed, to end the input, only the characters typed after the "\" are 
stored as the string value. 


Change the following lines SAMPLE III-6: 


20 PRINT "TYPE A NUMBER." 
30 INPUT N 
35 LET SS = STRS(N) 


RUN (Input from the keyboard is underlined). 
ee 
TYPE A NUMBER, 


a 


THERE GRE 5 CHARACTERS AND Spaces. 


AGSIN? Y OR N 


FQREWELL! 
ee | 


Try the following numbers and record the number of characters in each: 


37 _2 characters 2815 _5 characters -12345 characters 


2. 
_5_ characters 


37.8 _4 characters 9.2815 5 characters +12345 


UNIT III - Suggested Solutions 


Page III-8 


Change this line to have the first 3 characters typed: 


69 PRINT "THE FIRST THREE LETTERS ARE 


RUN (Input from the keyboard is underlined.) 


" LEFTS (W$,3) "." 


YOU TYPED: 
IT HAS 13 


TYPE A WORD: ?MICROCOMPUTER 


MICROCOMPUTER 
CHARACTERS. 


69 PRINT "THE LAST TWO LETTERS ARE 


THE FIRST THREE LETTERS ARE MIC. 
AGAIN? YES 


TYPE Q WORD? ?iT 

YOU TYPED: IT 

IT HAS 2 CHARACTERS. 

THE FIRST THREE LETTERS ARE IT. 
AGAIN? NO 

SEE ya! 


a a a lee rl 


Change this line to have the last two letters typed: 


RUN (Input from the keyboard is underlined.) 


—_—_—_ 


TYPE A WORD: 


YOU TYPED: MICROCOMPUTER 
IT HAS HARACTERS. 

4— LAST TWO LETTERS ARE ER. 
XIN? YES 


TYPE & WORD? 7? 


you TYPED? @ 
IT HAS 1 CHARACTERS. 

THE LOST TWO LI! RS ARE A. 
AGAIN? NO 

SEE va! 


EE | 


" RIGHT §$ (WS,2) "." 
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Page III-9 


(SAMPLE III-8B on the Intermediate BASIC disk.) 
RUN (Input from the keyboard is underlined.) 


TYPE A NUMBER WITH A DECIMAL POINT. 


24,7890 


THE DECIMAL POINT IS CHG@RACTER 2. 
THERE ARE i CHARACTERS BEFORE 
AND 4 AFTER THE DECIMAL POINT. 


AGAIN? _y_ 
TYPE @ NUMBER WITH A DECIMAL POINT. 
2.9 


THE DECIMAL POINT IS CHG@RSCTER 1. 
THERE ARE @ CHARACTERS BEFORE 
AND 1 AFTER THE DECIMAL POINT. 


AGAIN? _y_ 
TYPE @ NUMBER WITH A DECIMAL POINT. 
20.3 


THE DECIMAL POINT IS CHARACTER =. 
THERE ARE 1 CHARACTERS BEFORE 

AND 1 AFTER THE DECIMAL POINT. 
AGAIN? _Y 

TYPE A NUMBER WITH A DECIMAL POINT. 


THE DECIMAL POINT IS CHARACTER 3. 
THERE ARE 2 CHARACTERS BEFORE 
AND 3 AFTER THE DECIMAL POINT, 


AGAIN? _Y_ 
TYPE A NUMBER WITH @ DECIMAL 20TNT. 
245.5 


THE DECIMAL POINT IS cHaRAC 
THERE ARE 2 CHORACTERS BEF 
AND 1 AFTER THE DECIMAL POINT. 
AGAIN? _y 

TYPE @ NUMBER WITH & DECIMAL POINT. 


RE IS NO DECIMAL POINT IN 238. 
IN? oN 
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Page IIIl-10: Activity Program | 


(SOLUTION III-1 on the Intermediate BASIC disk.) 
LIST 


HOME 
PRINT TABC 14)"MARCIA HORN" 
PRINT TABC 16)"ROOKIE" 


PRINT TABC 1135"633-9110 EXT. 195" 
END 
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2. (PROGRAM III-2 on the Intermediate BASIC disk.) 
RUN (Input from the keyboard is underlined.) 


Screen |: Screen 2: 


PLEQSE TYPE YOUR FIRST NAME. pascal 
“ELOISE BLAISE 
PLEASE TYPE YOUR LAST NAME. 

7 Pascal 


3. (SOLUTION III-2 on the Intermediate BASIC disk.) 
LIST [1@ HOME 
2@ PRINT "“PLESSE TYPE YOUR FIRST NAME." 
20 INPUT FS 
4Q PRINT “PLEASE TYPE YOUR LAST NAME." 
S@ INPUT LS 
60 HOME 
65 “VTAB 1 
56 HTAB 12 
7] PRINT LS 


7S VTAB 22 
7E HTAB 10 
SQ PRINT FS 
90 END 


RUN (Input at the keyboard is underlined) 


Screen |: Screen 2: 
YOUR FIRST NAME. 


PLEASE TYPE YOUR LAST NAME. 
2BASCAL 
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Page Ill-l1: Activity Program 3 
(SOLUTION III-3 on the Intermediate BASIC disk.) 
Make the Apple do 


the following. BASIC statement to do it. 
Print "GET READY". 2@ PRINT "GET READY." 
Pause. 3 FOR P = 1 TO 150@: 
Clear the screen. 49 HOME 
Printi*GET SET". S@ PRINT "GET SET." 
Pause. 6@ FOR P = 1 TO i8@@: NEXT P 
Flash "GO!" on the screen. 8Q@ FLASH : PRINT "GO!": NORMAL 
Pause. 9@ FOR P = i TO i5@@: NEXT © 
Clear the screen. 128 HOME 


Print a good-bye message. 


RUN 
Screen |: Screen 2: 
GET READY. GET SET. 
Screen 3: Screen 4: 


60! GOOD-BYE! 
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1. | (SOLUTION III-4 on the Intermediate BASIC disk.) 
Change these lines: 


30 VTAB 22: PRINT "PRESS ANY KEY TO GO ON 
60 VTAB 22: PRINT "PRESS ANY KEY TO GO ON 
99 VTAB 22: PRINT "PRESS ANY KEY TO GO ON ... 


LIST HOME 
PRINT "GET READY. “ 
VTAB 22: PRINT “PRESS ANY KEY TO GO ON. . ."5? GET KS 
HOME 
PRINT “GET SET." 
VTAB 22: PRINT "PRESS ANY KEY TO GD ON . "2 GET KS 


HOME 

FLASH | PRINT “GO!": NORMAL 

VTAB 22: PRINT “PRESS ANY KEY TO GO ON. . ."3? GET KS 
12@ HOME 
11@ PRINT “GOOD-BYE!" 
12@ END 


RUN 


Screen |: Screen 2: 


GET READY. 


GET ‘SET. 


PRESS ANY KEY TO GO ON. PRESS ANY KEY TO GO ON. 


Screen 3: Screen 4: 


600D-BYE! 


PRESS ANY KEY TO GO ON . 


UNIT III - Suggested Solutions 
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(SOLUTION III-5 on the Intermediate BASIC disk.) 


LIST 


12 HOME 

20 INPUT "WHAT IS YOUR NAME? "SNS 
32 PRINT 

4Q PRINT "HI, "NS", " 

5@ PRINT 


6@ PRINT "PRESS ANY KEY TO CONTINUE"$: GET Ks 

72 HOME 

8@ PRINT “HOPE YOU ARE HAVING FUN WITH APPLESOFT" 
90 PRINT “INTERMEDIATE BASIC." 

10@ PRINT 

118 PRINT “DO YOU UNDERSTAND THE GET STATEMENT?" 
120 PRINT 

130 PRINT "PLEASE TYPE Y FOR YES AND N FOR NO: "3 
140 GET AS 

150 PRINT 

160 PRINT 

170 IF AS = "Y" THEN 202 

180 IF AS = "N" THEN 22 
19@ GOTO 128 

2@@ PRINT “SUPER" 

219 GOTO 238 

| 32@ PRINT “OH MY. TIME TO BONE UP." 
END 
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3. (APPLE QUIZ on the Intermediate BASIC disk.) 


LIST 


(Lines 
added 
are 
starred.) 


HOME 
22 VTAB S: HTAB S 
3Q@ PRINT "THIS IS A QUIZ ABOUT APPLES," 
4@ PRINT = INPUT “WHAT IS YOUR NAME? “SNS 
SQ VTAB 16: PRINT "PRESS ANY KEY GET Ks 
6@ FOR@=17T03 
70 HOME = VTAB S 
8@ READ O¢,CAs 
90 PRINT as 
PRINT = INPUT AS 
IF CAS = AS THEN 199 
PRINT “HINT-THE ANSWER HAS " LEN (CO$)" LETTERS. " 
INPUT "TRY AGAIN ?"sAs 
IF CAs = AS THEN 199 
PRINT = PRINT “SORRY, "NS", THE ANSWER IS" 
PRINT CAs". “ 
GOTO 220 


PRINT PRINT "CORRECT, "NS "HIE 

VTAB PRINT “PRESS ANY KEY"$! GET KS 
NEXT 

HOME = PRINT “SO LONG, "Ns", " 

END 

DATA WHAT IS THE APPLE’S LANGUAGE CAL 
para PROGRAMS ARE STORED PERMANENTL 


BATA THERE SRE --?-- SECTORS ON A 


SS ee ee ee 
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Page Ill-14: Activity Program 7 —_ 


(SOLUTION III-7 on the Intermediate BASIC disk.) 


Le 


(Lines 
added 
are 
starred.) 


LIST 
SEE ee 
1@ HOME 
20 VYTAB &S: HTAB 5 
3@ PRINT "THIS IS A QUIZ ABOUT APPLES. « 
4Q PRINT + INPUT “WHAT IS YOUR NAME? “sns 
S@ VTAB 16: PRINT "PRESS ANY KEY "3: GET KS 
6@ FOR@=1T03 
70 HOME : VTAB 5 
30 READ @$,CAs 
9Q PRINT Qs 
1@@ PRINT : INPUT AS 
110 IF CAs AS THEN 190 
120) PRINT! "HINT-THE ANSWER HAS “ LEN CCAS)" LETTERS. “ 
13 INPUT "TRY AGAIN ? "3As 
140 IF CAS = AS THEN 199 
*145 PRINT + PRINT "NO. THE FIRST LETTER IS " LEFTS (CAS, 13". " 
*152 INPUT "TRY AGAIN ? “sas 
*15 IF CAS = AS THEN 199 
16@ PRINT = PRINT “SORRY, “NS", THE ANSWER is" 
170 PRINT CAs". " 
168 GOTO 220 
19@ PRINT = PRINT “CORRECT, "NS"1! 
2@@ VTAB 23: PRINT "PRESS ANY KE’ 
21@ NEXT Q 
220 HOME + PRINT "SO LONG, "NS". " 
END 
4@@ DATA WHAT IS THE APPLE’S LANGUAGE CALLED?, RASIC 
418 DATA PROGRAMS ARE STORED PERMANENTLY ON -?-., DISK 
428 DATA THERE ARE --?-- SECTORS ON A DISk.,560 
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(SOLUTION III-8 on the Intermediate BASIC disk.) 
LIST 


3. 


HOME 

INPUT "TYPE A WORD? "sWe 
SPEED= 150 

GET iL LEN CWS) 


FORA = 1 TOL 
PRINT RIGHTS (WS, A? 
NEXT A 

SPEED= 2 

END 
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(SOLUTION III-9A on the Intermediate BASIC disk.) 


2. 


starred.) 


(Lines 
added 
are 
starred.) 


LIST 


18 


eee 


\mmeeeneeemeeee eee 


HOME 

PRINT "TYPE A WORD:" 
INPUT N& 

PRINT + PRINT 

Ber iL LEN ¢N$> 
FOR A TO) 


LET M% = MIDS (N%,A, 1) 

IF M% = "X" THEN 129 

NEXT A 

PRINT "THERE IS NO X IN "NS", 

GOTO 158 

PRINT “THE X IS CHARACTER "A", " 

PRINT "THERE ARE “A - 1" CHARACTERS BEFORE “ 


PRINT “AND “L - A" AFTER THE xX. " 
INPUT "AGAIN? "“7As 

IF LEFTS (AS,1) = "Y" THEN 10 
HOME : 
END 


(SOLUTION III-9B on the Intermediate BASIC disk.) 


LIST 


t HOME 


20 


PRINT "TYPE A WORD:" 


INPUT N& 
PRINT = PRINT 
LET L = LEN ¢NS) 
FOR A £ TOLL 
LET M@ = MIDS (NS, A, 1) 
IF M@ = "X" THEN 122 
NEXT A 
PRINT "THERE IS NO X IN "NS", # 
GOTO 15a 


PRINT "THE X IS CHG@RACTER "A"," 
PRINT "THERE ARE "A — 1" Ct 


PRINT "AND "L - A" QFTER THE xX. 

IF A = i THEN 145 

PRINT “THE CHGRGCTERS BEFORE THE X ARE: " LEFTS «NS,A - 13 
IF @ = L THEN 150 

PRINT “THE CHARACTERS AFTER THE X ARE: “ RIGHTS (NS, — Ad 
INPUT “AGAIN? "sas 

IF LEFTS (AS,1> = "Y" THEN 1@ 

HOME 

END 


UNIT IV - Suggested Solutions 
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Run the program. Answer with numbers from the table below. Record your results. 


NUMBER DIVIDED BY INT(N/D) 
(N) (D) 
ae ee 
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Run the program. Circle the numbers below that have 3 as a factor (are divisible by 3): 


8 @) 421 822 943 21235 


Change the following lines to check for divisibility by 8: 


30 LET Q = N/8 
59 PRINT N" IS NOT DIVISIBLE BY 8." 
7) PRINT N" IS DIVISIBLE BY 8." 


LIST 


1@ HOME 

20 INPUT "TYPE A NUMBER: "“'=N 
30 LET G@S=N/ 8 

4Q %IF @= INT (@) THEN 79 


52 PRINT N" IS NOT PIVISIBLE BY 4." 
6&2 GOTO 3a 
73 PRINT N" IS BDIVISIBLE BY &,“ 


$Q PRINT 

9@ INPUT "AGAIN - Y OR N ? “39s | 
19@ «#6«IF LEFTS (AS,1) = “Y" THEN 10 
4240 HOME 

122 END 


Run the program. Circle the numbers below that are divisible by 8 (have 8 as a factor): 


T-34 


UNIT IV - Suggested Solutions 
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Run the program. Use the following numbers and record the results below: 


Rounded to hundredths Rounded to tenths 
3.143 i eee 


wae | eran | 
a a aed 


Change these lines to make the program round to tenths: 


39 LET R=N+.f5:PRINTR 

40LET R=R* If: PRINTR 

60 LET R = R/1P 

79 PRINT N" ROUNDED TO TENTHS IS "R"." 


LIST 


HOME 

INPUT & NUMBER: "SN 
LET R -@5: PRINT R 
GEr if 1@: PRINT R 
LET R INT CR): PRINT R 
LET R R/ 18 


PRINT N" ROUNDED TO TENTHS IS "R"." 
INPUT "AGAIN - Y OR N ? “sas 
IF LEFTS (AS, 1) = “Y" THEN 1 

1@Q@ HOME 

110 END 


Page IV-4 


Change this line: 3 LET R = RND () 
What do you notice? The last random number is printed 2 times. 


Change this line: 30 LET R = RND (-3) 
What do you notice? The same random number is printed 2 times. 


Change this line: 30 LET R = RND (4) 
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What do you notice? Random numbers greater than or equal to f) and less than | are printed. 


UNIT IV - Suggested Solutions 


RUN 
LS26865055 «9, BSBETUTS 3 
S21 916286 9. 21916285 =) 
2973182 2. 973182 2 
S96 7ES225 3. SE7ES225 = 
+ 429292977 4, 29092977 4 
- SE9379736 8. 69279736 =] 
912462035 9. 12462033 Ss 
064061 3822 - 640613822 @ 
- 608577891 €&. @8577891 & 
- 592287729 S. 92297738 5 


What is the largest number listed under INT? 9 is the largest value possible. 
What is the smallest number listed under INT? ) is the smallest value Possible. 


RUN 129Q#R 


SEL47 26. 7ESE247 


» B3ESS2794 23. 8552795 


« 968622904 96. 5622983 


« 732733767 73. 27535768 
» 786175034 79. 6175034 
» 262971316 26. 2971516 
. 791689858 79. 1689858 
» 404326711 40.4326711 
. 84602568 84. 602558 


+ 5256135117 32. 5613117 


What is the largest number listed under INT? 99 is the largest value possible. 
What is the smallest number listed under INT? fis the smallest value possible. 
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Change this line to produce random numbers from 15 to 4: 


40 LET R = INT (26 * RND (1)) + 15 


LIST 


HOME 
20 SPEED= 152 

3Q FOR X = i TO 20 

40 LET R= INT (26 * RND (13) + 15 
5S@ PRINT “I PICKED: “R 

6@ NEXT X 

7@ SPEED= 255 

END 


Bue PICKED: 


PICKED: 
PICKED: 
PICKED: 
PICKED: 
PICKED: 
PICKED: 
PICKED: 
PICKED: 
PICKED: 
PICKED: 
PICKED: 
PICKED: 
PICKED: 
PICKED: 
PICKED: 
PICKED: 
PICKED: 
PICKED: 
PICKED: 


HHH HHH RR 
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(MULTIPLICATION on the Intermediate BASIC disk.) 
To print 8 multiplication problems with X in the range of | to 9 and Y in the range of | to 
12, change the following lines: 


20FOR P=1TO8 
30 LET X = INT (9 * RND (1)) +1 
4@ LET Y = INT (12 * RND (1)) + 1 
SOLETS=X*Y 


69PRINTX" * "ym" 2%, 
LIST 10 HOME 
20 FORP =1i7TO08 
3Q LET xX INT (9 * RND C19) + 4 


nen 


4@ LET Y = INT (12 * RND C19) +1 
SQ LETS =X*y¥ 

5Q PRINT X" ok "YH = Hy 

72 INPUT A 


8@ IF A = S THEN 110 

9@ PRINT “NOPE - TRY AGAIN." 

1@@ GOTO 6a 

110 PRINT “CORRECT ! ! 1" 

120 VTAB 20: PRINT “PRESS ANY KEY TO GO ON ..."3: GET KS 
130 HOME 
14@ NEXT P 
15 PRINT 


PRINT “THAT IS ALL FOR NOW! II" 


162 PRINT + PRINT “TAKE A COFFEE BREAK! ! '" 
17@ END 


RUN 


Screen | Screen 2 
S* 1 = 95 7F*x R= 714 
CORRECT !: ! ! CORRECT ! |! ! 
PRESS ANY KEY TO GO NN ... PRESS ANY KEY TO GON... 
—— OL NR EY GON | 
Screen 3 Screen 3 
_——— 
5S =H = 711 S «19 = 2759 
NOPE - TRY AGAIN. CORRECT ! 3 ! 
5S * 6 = 225 
NOPE - TRY AGAIN. 
S56 = 95 
GDRREET ! 13 
PRESS ANY ane PRESS ANY KEY TO GO ON... 


_ 
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Change these lines to have the computer count for 1000 rolls of a die: 


16 VTAB 13: HTAB4: PRINT "I AM ROLLING THE DIE 1 TIMES." 
20FOR R=1TO pgp 


10 HOME 

15 FLASH | YVTAB 12: HTAB 1S: PRINT “PLEASE WAIT. ": NORMAL 
16 YTAB HTAB 4: PRINT "I AM ROLLING THE DIE 1000 TIMES. " 
20 FOR R= i TO i900 

3Q@ LET D = INT (6 * RND C1)? +14 

4@ ON D GOTO SQ, 60,79, 88, 98, 100 


5Q@ LET Di = Di + 1: GOTO 110 
6@ LET D2 = D2 + 1: GOTO 119 
7 LET DS = DS + GOTO 110 
6@ LET D4 = D4 + GOTO 110 
90 LET DS = DS + 1: GOTO 110 
10@ LET DE = DE +1 

110 NEXT R 


115 HOME : VTAB 9 

120 PRINT : PRINT “1 WAS ROLLED "Di" TIMES." 
130 PRINT "2 WAS ROLLED "D2" 
14@ PRINT "S WAS ROLLED "pz" 
15@ PRINT "4 WAS ROLLED "D4" TIMES." 
16Q@ PRINT "S WAS ROLLED “DS" TIMES. « 


170 PRINT WAS ROLLED "DS" TIMES, " 
180 END 


RUN 


PLEASE WAIT. 
T AM ROLLING THE DIE 1990 TIMES, 


WAS ROLLED 177 TIMES. 
WAS ROLLED 182 TIMES. 
WAS ROLLED 145 TIMES. 
WAS ROLLED iS@ TIMES. 
WAS ROLLED 174 TIMES. 


WAS ROLLED 172 TIMES. 


OOP on 
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2. (FACTOR on the Intermediate BASIC disk.) 
Add and change these lines to produce factors: 


22 PRINT 
24 PRINT "1 IS A FACTOR OF "N"." 
26 FOR D =2TON/2 


39 LET Q= N/D 

79PRINT D" ISA FACTOR OF "N"." 
8 NEXT D : 

85 PRINT N" ISA FACTOR OF "N"." 
86 PRINT 


Delete line 59. 


LIST 
“TYPE A NUMBER: "SN 


“1 IS A FACTOR OF "N"." 
2TON / 2 
N/D 
INT (@) THEN 72 


PRINT D" IS A FACTOR GF “N™." 
NEXT D 
PRINT N" IS A FACTOR OF “"N"." 
PRINT 
INPUT “AGAIN - Y OR N ? "SAS 
100 IF LEFTS (AS,1) = "Y" THEN 12 
110 HOME 
120 END 


’ 3. Run the program and find the factors of the numbers below: 


28468 12 24 


3 #8 S 15 20 30 60 


12 4 5 8 10 20 25 40 50 100 125 
200 250 500 1000 


4, A prime number only has factors of | and itself. (5 is prime because its factors. are | 
and 5.) Circle the numbers that are prime in the following list: 


OG) 3 @ 1 7 1107 
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2. (SOLUTION IV-2 on the Intermediate BASIC disk.) 
Change the following lines to round numbers to the nearest whole number: 


39 LETR=N+.5 
70PRINT N" ROUNDED TO NEAREST WHOLE IS "R"," 


Delete lines 40 and 60. 
LIST 


10 HOME 

20 INPUT “TYPE A NUMBER: "$N 
30 LET R=N+.5 

S@ LET R = INT CR? PRINT R 


7@ PRINT N" ROUNDED TO NEAREST WHOLE IS "R"." 
&@ INPUT “AGAIN — Y OR N ? "As 

30 IF LEFTS (AS,1) = “Y" THEN 10 

100 HOME 

11@ END 


i Record how the Apple rounds each of the following: 


3.6 _ 4 1 0 589 589 74.95 74 74.5 75 
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2. (MULTIPLICATION DRILL on the Intermediate BASIC disk.) 
Add and change these lines to ask the user the number of problems: 


15 INPUT "HOW MANY PROBLEMS WOULD YOU LIKE?"; N 
19 HOME 
20FOR P=1TON 
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3. Change these lines to have the correct answer printed when problems are answered 


incorrectly: 


90 PRINT "SORRY, THE ANSWER IS: "S 
19) GOTO 129 


4, Add and change these lines to count the number of problems answered correctly: 
12 LETC = 


IIS LET C=C) 
145 PRINT "NUMBER ANSWERED CORRECTLY: "C 


5. Add and change the following lines to ask the user the largest number they will get for 


factors: 


16 INPUT "LARGEST NUMBER FOR FIRST FACTOR: ";E 
17 INPUT "LARGEST NUMBER FOR SECOND FACTOR: "; F 
30 LET X = INT (E * RND (1)) + 1 

40 LET Y = INT (F * RND (1)) +1 
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Page IV-12: Activity Program 3 (continued) 


LIST 
HOME 


LET C=Q0 


HOME 
1 TON 

INT CE + 
INT ¢F # 
LETS =X * ¥ 
PRINT X* a 4Y a 
INPUT A : 

IF A 
PRINT 
GOTO 
PRINT 
LET C 


S THEN 118 
“SORRY, 
120 
*CORRECT 1 § 
Ck at 


100 
110 
iis 

22 


HOME 
NEXT P 
PRINT 
PRINT = 
PRINT = 
END 


160 
178 


INPUT “HOW MANY PROBLEMS WOWILD YOU LIKE? 
INPUT “LARGEST NUMBER FOR FIRST FACTOR: 
INPUT “LARGEST NUMBER FOR SECOND FACTOR: 


THE ANSWER TS: 


VTAB 2@: PRINT “PRESS ANY KEY TO G0 ON... 


“NUMBER ANSWERED CORRECTLY: 
PRINT “THAT IS ALL FOR NOW!!!" 
PRINT “TAKE A COFFEE BREAK!!!" 


RND C13) + 1 
RND (1)) + 1 


“Ss 
ia 


Wes 
a 


GET KS 


“C 


RUN 
Screen 1 


HOW MANY PROBLEMS WOULD YOU [.IKE? 2 


LARGEST NUMBER FOR FIRST FACTOR: 9 
LARGEST NUMBER FOR SECOND FACTOR: 4 


Screen 3 


PRESS ANY KEY TO GO ON... 


Screen 2 
Ea 
CORRECT 


PRESS ANY KEY TO GOON... 


Screen 4 
R ANSWERED CORPRACTIY: 2 


THAT IS ALL FOR NOW!!! 


TAKE A COFFEE BREAK!!! 


UNIT IV - Suggested Solutions 


T-43 


Page IV-13: Activity Program 4 


Ty 


(NUMBER GUESS on the Intermediate BASIC disk.) 
LIST 


20 PRINT “THIS IS A NUMBER GUESSING GAME." 
3Q PRINT "I WILL THINK OF Q NUMBER BETWEEN" 
4@ PRINT "1 AND 1@@. TRY TO GUESS IT." 

S@ LET R = INT (1@@* RND C10) + ol 

6@ VTAB 20: PRINT "PRESS ANY KEY TO BEGIN. "3: 
72 INPUT “WHAT IS YOUR GUESS? "iG 

8@ IF G) R THEN 120 

3$@ IF G ( R THEN 140 

1@@ PRINT “YOU GOT IT!" 

11@ GOTO 16a 

120 PRINT “TOO HIGH. " 

122 GOTO 7a 

14@) PRINT “TOO Low." 

15@ GOTO 72 

162 PRINT 

179 INPUT "DO YOU WANT TO PLAY AGAIN? "SAS 
180 IF LEFTS (AS,1) = "Y" THEN 1@ 

198 HOME 

2@@ END 


RUN (Input from the keyboard is underlined.) 


THIS IS A NUMBER GUESSING GAME. 
I WILL THINK OF A NUMBER BETWEEN 
1 AND 128. TRY TO GUESS IT. 


PRESS ANY KEY TO BEGIN. 
Feat IS. YOUR GUESS? S@ 


TOO LOW. 

WHAT IS YOUR GUESS? 
TOO LOW. 

WHAT IS YOUR GUESS? 
TOO HIGH. 

WHAT IS YOUR GUESS? 
TOO HIGH. 

WHAT IS YOUR GUESS? 
YOU GOT IT! 


ja 2 B fa 


BO YOU WANT TO PLAY AGAIN? N 


a 
10 HOME 


| 


GET KS: HOME 
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Page IV-14: Activity Program 5 


Diameter Circumference 


3 oe IV-5 on the Intermediate BASIC disk.) 
Add the following lines to include a subroutine to round the circumference and area to 
tenths before printing the values: 


2. 


If GOTO 119 
20LETR=R + .05 
30 LETR=R* 1p 
49 LET R = INT (R) 
50 LET R = R/IP 
69 RETURN 

215 LETR=C 

216 GOSUB 20 

217 LETC=R 

225 LETR=A 

226 GOSUB 20 

227 LETA=R 


LIST GOTO 118 

LET R= =R+ .25 

LET R R* 10 

LET R= INT ¢R> 

LET iR Rf AD 

RETURN 
HOME 
PRINT “THIS PROGRAM WILL CALCULATE" 
PRINT "THE CIRCUMFERENCE AND AREA" 
PRINT “OF CIRCLES GIVEN THE DIAMETER." 
PRINT 
INPUT "WHAT IS THE DIAMETER? "sD 
LETR=D/2 
INPUT “UNIT OF MEASURE? “Us 
LET P 3.1416 
HET € 
LET A 
LET R 
GOSUB 
LET € 
PRINT “Us 
LET R 
GOSUB 
LET 6 
PRINT “AREA = “A" SQUARE "Us 
PRINT 
INPUT "AGAIN -— Y OR N? “3AS 
IF LEFTS (A$,1) = "Y" THEN 118 
HOME 
END 


Oe 
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Page IV-15:_ Activity Program 6 


2. (SOLUTION IV-6 on the Intermediate BASIC disk.) 


LIST 1@ HOME 


2@ GOTO i220 


(Lines 32 LET SS =" +4 

added 40 LETA=X+Y 

and S@ RETURN 

changed 62 LET S# =" -" 

are 72 LET X =X+Y¥: LETA=x-v 
starred.) 82 RETURN 


90 LET A =X * ¥? LET S§ =" »® ": RETURN 
100 LET A =X: LETX =A» Y: LET SS =" 7 "3 RETURN 
110 VTAB 23: PRINT “PRESS ANY KEY TO GO ON... 3 GET KS 
12@ HOME : RETURN 
#121) PRINT “THAT IS ITHH!" 
# 122 RETURN 
#123 PRINT “WAY TO Go!" 
® 124 RETURN 
* 125 PRINT "YOU GOT IT!" 
* 126 RETURN 
* 127 PRINT “WHAT A HUMAN CALCULATOR YOU ARE!" 
#128 RETURN 
130 VTAB 190 
149 LET X = INT (18 * RND (13) +14 
i15@ LET Y = INT (1@* RND (13) +1 
16Q PRINT "WHICH OPERATION:": PRINT 
17@ HTAB S: PRINT “C€1) ADDITION" 
18@ HTAB 5: PRINT SUBTRACTION" 
198 HTAB 5: PRINT MULTIPLICATION" 
282 HTAB S: PRINT "(4) DIVISION" 
210 HTAB S: PRINT "“C5) END" 
220 INPUT "TYPE 1, 2, 3, GORS ?: "sc 
230 IF C <1 0RC) 5 THEN 220 
240 IF C = 5 THEN 350 
. 250 ON C GOSUB 30,69,390,179 
260 HOME = VTAB 18 
270 PRINT X3SssY¥3" = "3 
260 INPUT R 
290 IF A = R THEN 320 
3QQ PRINT "NO, THE ANSWER IS: "A 
31@ GOTO 330 
32 LET W = INT (4 # RND C12) +1 
325 ON W GOSUB 121,123, 125,127 
330 GOSUB 110 
34Q GOTO 150 
350 HOME 
362 END 


a a ed | 


ae 


Page IV-16: Activity Program 7 


1. 


UNIT IV - Suggested Solutions 


(SOLUTION IV-7 on the Intermediate BASIC disk.) 
LIST 


1@ HOME 
15 FLASH VTAB 12: HTAB 15: PRINT “PLEASE WAIT. "= NORMAL 
20 FOR R 1 TO 100 

30 LET D1 = INT ¢& * RND ¢€1)) + 
40 LET D2 = INT (& * RND (13> + 
S@ LET T = Di + D2 

62 ON T GOTO 78, SO, 90, 100, 11%, 12U, 120, 140, 150, 160,179, 188 
7@ LET Ti = Ti + 12 GOTO 190 

8@ LET T2 = T2 + 1: GOTO 19@ 


1 
1 


9@ LET T2 TS + 1: GOTO 198 
108 LET T4 = T4 + 1: GOTO 190 
11@ LET TS = T5 + i: GOTO 198 
120 LET TE = Té + 1: GOTO 190 
130 LET T7 = T7 + 1: GOTO 190 
140 LET TS = TS + i: GOTO 199 
15@ LET T9 = T9 + i: GOTO 19a 
16@ LET T@ = T@ + i: GOTO 198 
17@ LET TA = TA + 1: GOTO 199 
182 LET TB = TB + 1: GOTO 198 
192 NEXT R 

280 HOME 


210 PRINT “2 WAS ROLLED “T2" TIMES. “ 
220 PRINT "3S WAS ROLLED "“T3" 
23@ PRINT “4 WAS ROLLED "Ta" 
249 PRINT "S WAS ROLLED "TS" 
250 PRINT "& WAS ROLLED "TE" 
260 PRINT “7 WAS ROLLED “T7" 
270 PRINT "S WAS ROLLED "TS" 
280 PRINT "9 WAS ROLLED "TS" 
290 PRINT "10 WAS ROLLED “TH" TIMES. 
3Q0 PRINT “11 WAS ROLLED "TA" TIMES. 
31M PRINT “12 WAS ROLLED "TR" TIMES. 
320 END 


The total of 7 has the greatest probability of occurring. 


16 VTAB 13: PRINT “I AM ROLLING THE PAIR ()F DICE 100 TIMES. " 
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APPENDICES 


Appendix 


MECC INSTRUCTIONAL SERVICES ACTIVITIES 


The Minnesota Educational Computing Consortium is an organization established in 
1973 to assist Minnesota schools and colleges in implementing educational computing. 
MECC provides a variety of services to education, including 1) development and 
distribution of microcomputer courseware; 2) in-service training for educators and 
development of materials for conducting training; 3) instructional computing assistance 
through newsletters and microcomputer purchase contracts; 4) technical support, 
including timeshare computing, hardware maintenance, and local area networking; and 
5) management information services, including the development of statewide payroll 
and accounting software and administrative microcomputer packages. MECC's 
knowledge and expertise in the educational computing field comes from a decade of 
working with and providing leadership for hundreds of local educators on a daily basis. 


e MECC Educational Computing Catalog 
Catalogs containing instructional computing courseware, all-purpose training 
materials, and administrative software are published in March and September 
each year and are distributed at no charge. To request a catalog, write or 
eall MECC Distribution (Telephone: 612/638-0627). 


e@ MECC Memberships 
Non-Minnesota non-profit educational institutions may obtain annual service 
agreements with MECC which qualify them to obtain MECC courseware and 
training at special reduced prices. For up-to-date pricing and procedural 
information on these memberships, write or call MECC Institutional 
Memberships (Telephone: 612/638-0611). 


e = Training 
MECC staff conducts educational computing workshops for educators throughout 
the United States. For information on workshop schedules, or to arrange a 
special training activity, write or call MECC User Services (Telephone: 
612/638-0626). 


e MECC Newsletters 
MECC distributes general information and technical newsletters on a regular 
basis during the school year. To obtain, write or call indicating your interest 
to MECC Newsletters (Telephone: 612/638-0606). 


e Help Line 
If you have any problems using MECC courseware with your microcomputer, 
write or call the Help Line (Telephone: 612/638-0638). 


e Visits 
All requests for visits to MECC must be scheduled in advance by writing to 
MECC or calling 612/638-0606. 


MECC 
3490 Lexington Avenue North 
St. Paul, MN 55112 
(General Information: 612/638-0600) 


Appendix 
EVALUATION SHEET 


Please comment on this manual and the accompanying diskette. MECC will carefully 


consider user suggestions and incorporate them into future documentation whenever 
practical. 


COMMENTS ON COMPUTER PROGRAM 


Diskette Name Vol. No. Version 
Program Name 


__  _ 


_--:>>:?ereree 
-_oeeeereree eee 
ere ee 
_—_—_—_—n 
eee 
ee eeeEeFEFeEeSeSFSSSSSSFSSSSSSSSSsSSses 


COMMENTS ON MANUAL 


Title of Manual 
Program Name 
Page No. 


___ eee 
Nn 


From: Name 
Institution 
Address 


ZIP 


Please detach and mail to MECC. 


STAPLE STAPLE 


FOLD FOLD 


Minnesota Educational Computing Consortium 
Director, Courseware Development 
3490 Lexington Avenue North 
St. Paul, MN 55112 


FOLD FOLD 


